diff options
| author | fukachan <fukachan> | 2002-09-24 14:24:35 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-09-24 14:24:35 +0000 |
| commit | 716212879045baef663f99be8d3c4fddcd2ee7c8 (patch) | |
| tree | c4cf3b7f49a4e828beb9818477e76129a8706629 /fml/lib | |
| parent | 41e9c126e022e86ec2131afa8d8ad14b5eacbda1 (diff) | |
| download | fml8-716212879045baef663f99be8d3c4fddcd2ee7c8.tar.gz fml8-716212879045baef663f99be8d3c4fddcd2ee7c8.tar.bz2 fml8-716212879045baef663f99be8d3c4fddcd2ee7c8.zip | |
define permit rule
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Filter/BodyCheck.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/fml/lib/FML/Filter/BodyCheck.pm b/fml/lib/FML/Filter/BodyCheck.pm index 120a3c63..38017f4c 100644 --- a/fml/lib/FML/Filter/BodyCheck.pm +++ b/fml/lib/FML/Filter/BodyCheck.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: BodyCheck.pm,v 1.25 2002/09/22 14:56:49 fukachan Exp $ +# $FML: BodyCheck.pm,v 1.26 2002/09/23 02:02:05 fukachan Exp $ # package FML::Filter::BodyCheck; @@ -138,7 +138,13 @@ sub body_check ## 6. main fules my $rules = $self->{ _rules }; + + RULE: for my $rule (@$rules) { + if ($rule eq 'permit') { + last RULE; + } + if ($self->can($rule)) { eval q{ $self->$rule($msg, $args, $m); |