select the error message by the $xxx_restrictions error reason

1 files changed, 13 insertions, 4 deletions

diff --git a/fml/lib/FML/Process/Command.pm b/fml/lib/FML/Process/Command.pm
index 738879f8..7b28ab38 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.43 2002/04/11 05:24:41 fukachan Exp $
+# $FML: Command.pm,v 1.44 2002/04/12 11:55:18 fukachan Exp $
 #
 
 package FML::Process::Command;
@@ -132,14 +132,23 @@ XXX Each command determines need of lock or not.
 sub run
 {
     my ($curproc, $args) = @_;
+    my $pcb = $curproc->{ pcb };
 
     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");
+	my $reason = $pcb->get("check_restrictions", "deny_reason");
+	if ($reason eq 'reject_system_accounts') {
+	    $curproc->reply_message_nl("error.system_accounts",
+				       "deny request from system accounts");
+	}
+	else {
+	    $curproc->reply_message_nl("error.not_member",
+				       "deny request from a not member");
+	}
+
+	Log("deny command. reason=$reason");
     }
 }