diff options
| author | fukachan <fukachan> | 2002-06-30 01:23:55 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-06-30 01:23:55 +0000 |
| commit | 3bbfb546934d573b91e5f8fbb15c1be209410014 (patch) | |
| tree | f63681eadd5f35eb1897b7a892b6e38bbb322449 /fml | |
| parent | 29ab1822e93408268de46dbbddb6d6face7843c7 (diff) | |
| download | fml8-3bbfb546934d573b91e5f8fbb15c1be209410014.tar.gz fml8-3bbfb546934d573b91e5f8fbb15c1be209410014.tar.bz2 fml8-3bbfb546934d573b91e5f8fbb15c1be209410014.zip | |
fix the condition to show help
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/Process/ConfViewer.pm | 6 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Spool.pm | 14 |
2 files changed, 13 insertions, 7 deletions
diff --git a/fml/lib/FML/Process/ConfViewer.pm b/fml/lib/FML/Process/ConfViewer.pm index 5479196f..e6c89737 100644 --- a/fml/lib/FML/Process/ConfViewer.pm +++ b/fml/lib/FML/Process/ConfViewer.pm @@ -3,7 +3,7 @@ # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi # All rights reserved. # -# $FML: ConfViewer.pm,v 1.11 2002/04/07 05:08:24 fukachan Exp $ +# $FML: ConfViewer.pm,v 1.12 2002/06/27 08:25:49 fukachan Exp $ # package FML::Process::ConfViewer; @@ -91,7 +91,7 @@ sub prepare sub verify_request { my ($curproc, $args) = @_; - my $argv = $curproc->command_line_argv(); + my $argv = $curproc->command_line_argv(); my $config = $curproc->{ config }; my $eval = $config->get_hook( 'fmlconf_verify_request_start_hook' ); @@ -100,7 +100,7 @@ sub verify_request print STDERR $@ if $@; } - if (length(@$argv) == 0) { + if (length(@$argv) == 0 || (not $argv->[0])) { $curproc->help(); exit(0); } diff --git a/fml/lib/FML/Process/Spool.pm b/fml/lib/FML/Process/Spool.pm index 8fc54ef0..e323493e 100644 --- a/fml/lib/FML/Process/Spool.pm +++ b/fml/lib/FML/Process/Spool.pm @@ -3,7 +3,7 @@ # Copyright (C) 2002 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Spool.pm,v 1.5 2002/06/01 05:02:33 fukachan Exp $ +# $FML: Spool.pm,v 1.6 2002/06/27 08:25:50 fukachan Exp $ # package FML::Process::Spool; @@ -90,7 +90,7 @@ sub verify_request my $eval = $config->get_hook( 'fmlspool_verify_request_start_hook' ); if ($eval) { eval qq{ $eval; }; LogWarn($@) if $@; } - if (length(@$argv) == 0) { + if (length(@$argv) == 0 || (not $argv->[0])) { $curproc->help(); exit(0); } @@ -296,11 +296,17 @@ sub help print <<"_EOF_"; -Usage: $name [--convert] [--style=STR] [--srcdir=DIR] [-I DIR] DIR +Usage: $name [--convert] [--style=STR] [--srcdir=DIR] [-I DIR] ML options: --I dir prepend dir into include path +--convert convert the spool dir at the same directory path + +--style= convertd to subdir style if 'subdir' specified. + +-I DIR prepend dir into include path + +ML ml_name. Example: elena, rudo\@nuinui.net _EOF_ } |