diff options
| author | fukachan <fukachan> | 2002-04-13 14:53:08 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-04-13 14:53:08 +0000 |
| commit | 87659a6bec6f5de41d9384e795b0319ffafeb679 (patch) | |
| tree | 70977a12e3154d83bb46b1a94db36526d9cee583 /fml/lib/FML/Process/Command.pm | |
| parent | 18582c91485f5874ad8e88081a56f6779b81237e (diff) | |
| download | fml8-87659a6bec6f5de41d9384e795b0319ffafeb679.tar.gz fml8-87659a6bec6f5de41d9384e795b0319ffafeb679.tar.bz2 fml8-87659a6bec6f5de41d9384e795b0319ffafeb679.zip | |
reply_message( OBJ(Mail::Message) ) when the message is rejected by
$command_restrictions.
Diffstat (limited to 'fml/lib/FML/Process/Command.pm')
| -rw-r--r-- | fml/lib/FML/Process/Command.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Command.pm b/fml/lib/FML/Process/Command.pm index 7b28ab38..11cdd331 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.44 2002/04/12 11:55:18 fukachan Exp $ +# $FML: Command.pm,v 1.45 2002/04/13 13:52:39 fukachan Exp $ # package FML::Process::Command; @@ -148,6 +148,10 @@ sub run "deny request from a not member"); } + # append the incoming message as the reference + my $msg = $curproc->{ incoming_message }->{ message }; + $curproc->reply_message( $msg ); + Log("deny command. reason=$reason"); } } |