diff options
| author | fukachan <fukachan> | 2002-03-17 06:24:29 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-03-17 06:24:29 +0000 |
| commit | f2ab3fdc66cbc7911f0557fc08b1012c19d22be6 (patch) | |
| tree | 3757eac980a4684bbb91f92385503afd001cc572 /fml/lib/FML/Process/Command.pm | |
| parent | ab1df9659060a39a97561c89084a6d794005ed98 (diff) | |
| download | fml8-f2ab3fdc66cbc7911f0557fc08b1012c19d22be6.tar.gz fml8-f2ab3fdc66cbc7911f0557fc08b1012c19d22be6.tar.bz2 fml8-f2ab3fdc66cbc7911f0557fc08b1012c19d22be6.zip | |
nuke superflous \s*$
Diffstat (limited to 'fml/lib/FML/Process/Command.pm')
| -rw-r--r-- | fml/lib/FML/Process/Command.pm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/fml/lib/FML/Process/Command.pm b/fml/lib/FML/Process/Command.pm index 47d04df6..bc00c905 100644 --- a/fml/lib/FML/Process/Command.pm +++ b/fml/lib/FML/Process/Command.pm @@ -3,7 +3,7 @@ # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Command.pm,v 1.35 2002/02/17 13:51:49 fukachan Exp $ +# $FML: Command.pm,v 1.36 2002/02/23 11:02:17 fukachan Exp $ # package FML::Process::Command; @@ -202,7 +202,7 @@ sub _pre_scan # special traps my $confirm_prefix = $config->{ confirm_command_prefix }; - my $admin_prefix = $config->{ privileged_command_prefix }; + my $admin_prefix = $config->{ privileged_command_prefix }; my $confirm_found = ''; my $admin_found = ''; @@ -335,9 +335,9 @@ sub _evaluate_command # preliminary scanning for message to find "confirm" or "admin" my ($id, $admin_password) = $curproc->_pre_scan( \@body ); - # special traps are needed for "confirm" and "admin" commands. + # special traps are needed for "confirm" and "admin" commands. my $confirm_prefix = $config->{ confirm_command_prefix }; - my $admin_prefix = $config->{ privileged_command_prefix }; + my $admin_prefix = $config->{ privileged_command_prefix }; my $eval = $config->get_hook( 'command_run_start_hook' ); if ($eval) { eval qq{ $eval; }; LogWarn($@) if $@; } @@ -375,9 +375,9 @@ sub _evaluate_command Log("try $comname <$command>"); $command =~ s/^.*$comname/admin $comname/; - my $opts = { - mode => 'privileged_user', - comname => $comname, + my $opts = { + mode => 'privileged_user', + comname => $comname, command => $command }; unless ($curproc->_can_accpet_command($args, $opts)) { # no, we do not accept this command. @@ -392,7 +392,7 @@ sub _evaluate_command # validate general command except for confirmation # if $id is 1, this message must be confirmation reply. else { - my $opts = { + my $opts = { mode => 'user', comname => $comname, command => $command }; unless ($curproc->_can_accpet_command($args, $opts)) { # no, we do not accept this command. |