diff options
| author | fukachan <fukachan> | 2002-07-14 15:15:27 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-07-14 15:15:27 +0000 |
| commit | 791073bd93a78124f348ca70d045f671c2f4eabb (patch) | |
| tree | 9bf9ab513db02935a9a43e25851cca4b87efce91 /fml/lib/FML/Process/Distribute.pm | |
| parent | 4345159846ffb68770a0b6794decb84eb5eba9e9 (diff) | |
| download | fml8-791073bd93a78124f348ca70d045f671c2f4eabb.tar.gz fml8-791073bd93a78124f348ca70d045f671c2f4eabb.tar.bz2 fml8-791073bd93a78124f348ca70d045f671c2f4eabb.zip | |
copy message and send it to $maintainer too
use reply_message*() with $msg_args to copy the message if needed where
$msg_args = { always_cc => $maintainer } or
$msg_args = { recipient => $maintinaer } pertinently.
Diffstat (limited to 'fml/lib/FML/Process/Distribute.pm')
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm index 00763ada..c119ec3e 100644 --- a/fml/lib/FML/Process/Distribute.pm +++ b/fml/lib/FML/Process/Distribute.pm @@ -3,7 +3,7 @@ # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Distribute.pm,v 1.81 2002/06/27 08:25:49 fukachan Exp $ +# $FML: Distribute.pm,v 1.82 2002/07/02 12:40:37 fukachan Exp $ # package FML::Process::Distribute; @@ -173,7 +173,9 @@ Lastly we unlock the current process. sub run { my ($curproc, $args) = @_; - my $config = $curproc->{ config }; + my $config = $curproc->{ config }; + my $maintainer = $config->{ maintainer }; + my $sender = $curproc->{'credential'}->{'sender'}; my $eval = $config->get_hook( 'distribute_run_start_hook' ); if ($eval) { eval qq{ $eval; }; LogWarn($@) if $@; } @@ -208,6 +210,16 @@ sub run my $msg = $curproc->{ incoming_message }->{ message }; $curproc->reply_message( $msg ); + + # inform maintainer too. + my $msg_args = { + _arg_address => $sender, + recipient => $maintainer, + }; + $curproc->reply_message_nl("error.post_from_not_member", + "post from not a member", + $msg_args); + $curproc->reply_message( $msg, $msg_args ); } } else { |