diff options
| author | fukachan <fukachan> | 2002-08-14 14:17:09 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-08-14 14:17:09 +0000 |
| commit | 7764fcaba8dbcf01722a322bf3adb301bec87520 (patch) | |
| tree | 5f113a994e5b812aa176fed14c6dd7b659345d85 /fml/lib/FML | |
| parent | f28a561e8f366203e37daf10083014831283b19e (diff) | |
| download | fml8-7764fcaba8dbcf01722a322bf3adb301bec87520.tar.gz fml8-7764fcaba8dbcf01722a322bf3adb301bec87520.tar.bz2 fml8-7764fcaba8dbcf01722a322bf3adb301bec87520.zip | |
s/refuse_further_processing/stop_this_process/
Diffstat (limited to 'fml/lib/FML')
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 4 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 10 |
2 files changed, 7 insertions, 7 deletions
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm index 679707bc..71dbe255 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.89 2002/08/03 13:13:24 fukachan Exp $ +# $FML: Distribute.pm,v 1.90 2002/08/14 03:31:56 fukachan Exp $ # package FML::Process::Distribute; @@ -145,7 +145,7 @@ sub _check_filter # filter traps this message. if ($r = $filter->error()) { # we should stop this process ASAP. - $curproc->refuse_further_processing(); + $curproc->stop_this_process(); Log("rejected by filter due to $r"); } }; diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index 5c7d1b38..fe1bd9c7 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.126 2002/08/14 04:21:08 fukachan Exp $ +# $FML: Kernel.pm,v 1.127 2002/08/14 14:14:33 fukachan Exp $ # package FML::Process::Kernel; @@ -478,7 +478,7 @@ sub verify_sender_credential $from =~ s/\n$//o; } else { - $curproc->refuse_further_processing("cannot extract From:"); + $curproc->stop_this_process("cannot extract From:"); LogError("cannot extract From:"); } @@ -533,7 +533,7 @@ sub simple_loop_check if ($match) { # we should stop this process ASAP. - $curproc->refuse_further_processing(); + $curproc->stop_this_process(); Log("mail loop detected for $match"); } } @@ -930,7 +930,7 @@ sub _check_restrictions } -=head2 refuse_further_processing($reason) +=head2 stop_this_process($reason) Set "we should refuse this processing now" flag. We should stop this process as soon as possible. @@ -948,7 +948,7 @@ invalid conditions by such as filtering. # Arguments: OBJ($curproc) STR($reason) # Side Effects: none # Return Value: NUM(1 or 0) -sub refuse_further_processing +sub stop_this_process { my ($curproc, $reason) = @_; $curproc->{ __this_process_is_invalid } = 1; |