summaryrefslogtreecommitdiff
path: root/fml/lib/FML/Process
diff options
context:
space:
mode:
authorfukachan <fukachan>2002-04-12 11:55:18 +0000
committerfukachan <fukachan>2002-04-12 11:55:18 +0000
commit8fa89d55006edb8b8ed44333813d0545da5eb6aa (patch)
treed08be86c6353f46cd86f44af751e23a619989ad8 /fml/lib/FML/Process
parentde78679bdf916c273682105582b411075560c409 (diff)
downloadfml8-8fa89d55006edb8b8ed44333813d0545da5eb6aa.tar.gz
fml8-8fa89d55006edb8b8ed44333813d0545da5eb6aa.tar.bz2
fml8-8fa89d55006edb8b8ed44333813d0545da5eb6aa.zip
check by permit_command() before command execution ;)
send back mesg "we deny requests from system accounts"
Diffstat (limited to 'fml/lib/FML/Process')
-rw-r--r--fml/lib/FML/Process/Command.pm12
1 files changed, 10 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/Command.pm b/fml/lib/FML/Process/Command.pm
index b5d5a05b..738879f8 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.42 2002/04/08 12:44:25 fukachan Exp $
+# $FML: Command.pm,v 1.43 2002/04/11 05:24:41 fukachan Exp $
#
package FML::Process::Command;
@@ -132,7 +132,15 @@ XXX Each command determines need of lock or not.
sub run
{
my ($curproc, $args) = @_;
- $curproc->_evaluate_command($args);
+
+ if ($curproc->permit_command($args)) {
+ $curproc->_evaluate_command($args);
+ }
+ else {
+ $curproc->reply_message_nl("error.system_accounts",
+ "deny request from system accounts");
+ Log("deny command");
+ }
}