diff options
| author | fukachan <fukachan> | 2003-08-03 14:46:41 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-08-03 14:46:41 +0000 |
| commit | 9dc5df126eaed6afc0aabdb9a4802566d6a17e59 (patch) | |
| tree | fb98cdda703a06aa616ac6f52f9227533ac72033 /fml/lib | |
| parent | 68a51b2dee9365ac4a1a8493ae00ab877230d9b6 (diff) | |
| download | fml8-9dc5df126eaed6afc0aabdb9a4802566d6a17e59.tar.gz fml8-9dc5df126eaed6afc0aabdb9a4802566d6a17e59.tar.bz2 fml8-9dc5df126eaed6afc0aabdb9a4802566d6a17e59.zip | |
FNF
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Restriction/Post.pm | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/fml/lib/FML/Restriction/Post.pm b/fml/lib/FML/Restriction/Post.pm index 54f32a9b..ec861398 100644 --- a/fml/lib/FML/Restriction/Post.pm +++ b/fml/lib/FML/Restriction/Post.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: Post.pm,v 1.3 2003/03/28 10:32:24 fukachan Exp $ +# $FML: Post.pm,v 1.4 2003/08/01 05:00:58 tmu Exp $ # package FML::Restriction::Post; @@ -56,7 +56,9 @@ sub reject_system_accounts if ($match) { Log("${rule}: $match matches sender address"); - $pcb->set("check_restrictions", "deny_reason", $rule) unless $pcb->get("check_restrictions", "deny_reason"); + unless ($pcb->get("check_restrictions", "deny_reason")) { + $pcb->set("check_restrictions", "deny_reason", $rule); + } return("matched", "deny"); } @@ -103,7 +105,9 @@ sub permit_member_maps # $curproc->reply_message( " your address: $sender" ); # save reason for later use. - $pcb->set("check_restrictions", "deny_reason", $rule) unless $pcb->get("check_restrictions", "deny_reason"); + unless ($pcb->get("check_restrictions", "deny_reason")) { + $pcb->set("check_restrictions", "deny_reason", $rule); + } # XXX "deny ASAP if this method fails." ? NO, wrong! # XXX permit_XXX() allows the trial match of another rules. @@ -145,7 +149,9 @@ sub reject my $curproc = $self->{ _curproc }; my $pcb = $curproc->{ pcb }; - $pcb->set("check_restrictions", "deny_reason", $rule) unless $pcb->get("check_restrictions", "deny_reason"); + unless ($pcb->get("check_restrictions", "deny_reason")) { + $pcb->set("check_restrictions", "deny_reason", $rule); + } return("matched", "deny"); } |