diff options
| author | fukachan <fukachan> | 2004-03-23 06:34:14 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-03-23 06:34:14 +0000 |
| commit | 88d5b43d9435519f2928dd5ceab04af30f424c17 (patch) | |
| tree | fdc09e82b178b0af75ac1b95d60995286dcbd0a4 /fml/lib/FML/Process/Kernel.pm | |
| parent | 19b4570124d6c04831902d1bccf3538a92033336 (diff) | |
| download | fml8-88d5b43d9435519f2928dd5ceab04af30f424c17.tar.gz fml8-88d5b43d9435519f2928dd5ceab04af30f424c17.tar.bz2 fml8-88d5b43d9435519f2928dd5ceab04af30f424c17.zip | |
allow CUI(fml,makefml) to send messages.
this function disabled by default.
fml and makefml can use --allow-send-message --send-to=ADDRESS option for it.
Diffstat (limited to 'fml/lib/FML/Process/Kernel.pm')
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index acabf17c..048d7fb9 100644 --- a/fml/lib/FML/Process/Kernel.pm +++ b/fml/lib/FML/Process/Kernel.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Kernel.pm,v 1.220 2004/03/14 06:33:14 fukachan Exp $ +# $FML: Kernel.pm,v 1.221 2004/03/20 16:27:01 fukachan Exp $ # package FML::Process::Kernel; @@ -1449,7 +1449,10 @@ sub _reply_message_queuein # process running under MTA can handle reply messages by mail. unless ($curproc->allow_reply_message()) { - $curproc->logwarn("(debug) $myname disables reply_message()"); + unless ($curproc->error_message_get_count("disable_reply_message")) { + $curproc->logwarn("(debug) $myname disables reply_message()"); + $curproc->error_message_set_count("disable_reply_message"); + } return; } |