summaryrefslogtreecommitdiff
path: root/fml
diff options
context:
space:
mode:
authorfukachan <fukachan>2003-03-06 13:37:34 +0000
committerfukachan <fukachan>2003-03-06 13:37:34 +0000
commit179ed66cbfbe6c35f20cdbd021ce82f8ca0b2d17 (patch)
treee17bd272625106db75ea03954d8cef61842cb598 /fml
parentdf6c1e916806230143a70caeedb49e5a9a3fbac5 (diff)
downloadfml8-179ed66cbfbe6c35f20cdbd021ce82f8ca0b2d17.tar.gz
fml8-179ed66cbfbe6c35f20cdbd021ce82f8ca0b2d17.tar.bz2
fml8-179ed66cbfbe6c35f20cdbd021ce82f8ca0b2d17.zip
enable switch by $use_article_filter_reject_notice
Diffstat (limited to 'fml')
-rw-r--r--fml/lib/FML/Process/Distribute.pm18
1 files changed, 13 insertions, 5 deletions
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm
index c0f88889..a48f272f 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.107 2003/03/05 15:07:31 fukachan Exp $
+# $FML: Distribute.pm,v 1.108 2003/03/06 04:16:00 fukachan Exp $
#
package FML::Process::Distribute;
@@ -142,6 +142,7 @@ sub verify_request
sub _check_filter
{
my ($curproc, $args) = @_;
+ my $config = $curproc->config();
eval q{
use FML::Filter;
@@ -150,10 +151,17 @@ 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);
+ if ($config->yes('use_article_filter_reject_notice')) {
+ my $msg_args = {
+ _arg_reason => $r,
+ };
+
+ Log("(debug) filter: inform rejection");
+ $filter->article_filter_reject_notice($curproc, $msg_args);
+ }
+ else {
+ Log("filter: not inform rejection");
+ }
# we should stop this process ASAP.
$curproc->stop_this_process();