diff options
| author | fukachan <fukachan> | 2003-03-05 13:54:26 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-03-05 13:54:26 +0000 |
| commit | 71686c4e0f29b8f87a346a226a3b83777dedc895 (patch) | |
| tree | a7fc8e30aa138be1b8476d9d7427d935eec1903b /fml/lib/FML/Process | |
| parent | 2413280597e08927f28a31727f65d8dd9a44a27a (diff) | |
| download | fml8-71686c4e0f29b8f87a346a226a3b83777dedc895.tar.gz fml8-71686c4e0f29b8f87a346a226a3b83777dedc895.tar.bz2 fml8-71686c4e0f29b8f87a346a226a3b83777dedc895.zip | |
experimental implementation of rejection notice of filter.
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm index 733079dc..5fc886e8 100644 --- a/fml/lib/FML/Process/Distribute.pm +++ b/fml/lib/FML/Process/Distribute.pm @@ -3,7 +3,7 @@ # Copyright (C) 2000,2001,2002,2003 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Distribute.pm,v 1.104 2003/01/25 12:02:41 fukachan Exp $ +# $FML: Distribute.pm,v 1.105 2003/02/16 08:33:09 fukachan Exp $ # package FML::Process::Distribute; @@ -150,6 +150,11 @@ sub _check_filter # filter traps this message. if ($r = $filter->error()) { + my $msg_args = { + _arg_reason => $r, + }; + $filter->article_filter_reject_notice($curproc, $msg_args); + # we should stop this process ASAP. $curproc->stop_this_process(); Log("rejected by filter due to $r"); |