summaryrefslogtreecommitdiff
path: root/fml/lib/FML/Process/Command.pm
diff options
context:
space:
mode:
authorfukachan <fukachan>2002-04-26 10:29:12 +0000
committerfukachan <fukachan>2002-04-26 10:29:12 +0000
commitf18acdd8a89b4557c57abb57f0424ac2c0eac5b7 (patch)
tree7efe500bd484613e4077bfa5f2700217daf09574 /fml/lib/FML/Process/Command.pm
parenta76f5a85c06a87869719aae460b42e6d2fdb4d80 (diff)
downloadfml8-f18acdd8a89b4557c57abb57f0424ac2c0eac5b7.tar.gz
fml8-f18acdd8a89b4557c57abb57f0424ac2c0eac5b7.tar.bz2
fml8-f18acdd8a89b4557c57abb57f0424ac2c0eac5b7.zip
permit_commands_for_stranger works
Diffstat (limited to 'fml/lib/FML/Process/Command.pm')
-rw-r--r--fml/lib/FML/Process/Command.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/Command.pm b/fml/lib/FML/Process/Command.pm
index 67f55a01..ad92e900 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.50 2002/04/25 04:15:21 fukachan Exp $
+# $FML: Command.pm,v 1.51 2002/04/26 09:20:17 fukachan Exp $
#
package FML::Process::Command;
@@ -139,7 +139,7 @@ sub run
}
else {
my $reason = $pcb->get("check_restrictions", "deny_reason");
- if ($reason eq 'reject_system_accounts') {
+ if (defined($reason) && ($reason eq 'reject_system_accounts')) {
$curproc->reply_message_nl("error.system_accounts",
"deny request from system accounts");
}
@@ -152,6 +152,7 @@ sub run
my $msg = $curproc->{ incoming_message }->{ message };
$curproc->reply_message( $msg );
+ unless (defined $reason) { $reason = 'unknown';}
Log("deny command. reason=$reason");
}
}