diff options
| author | fukachan <fukachan> | 2006-02-05 02:44:25 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2006-02-05 02:44:25 +0000 |
| commit | e253a0040ec0e3500756e5c5e43ff18ac8e4ce22 (patch) | |
| tree | 86b45541115a5f0496f191a21327d251ddc82a26 /fml/lib | |
| parent | 097f3a227306cf307c89bc72a636eaf80f80b871 (diff) | |
| download | fml8-e253a0040ec0e3500756e5c5e43ff18ac8e4ce22.tar.gz fml8-e253a0040ec0e3500756e5c5e43ff18ac8e4ce22.tar.bz2 fml8-e253a0040ec0e3500756e5c5e43ff18ac8e4ce22.zip | |
implement reject_list_header_field derective.
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Restriction/CreateOnPost.pm | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/fml/lib/FML/Restriction/CreateOnPost.pm b/fml/lib/FML/Restriction/CreateOnPost.pm index 7a18c9c8..2dedfd85 100644 --- a/fml/lib/FML/Restriction/CreateOnPost.pm +++ b/fml/lib/FML/Restriction/CreateOnPost.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$ +# $FML: CreateOnPost.pm,v 1.1 2006/02/04 08:00:09 fukachan Exp $ # package FML::Restriction::CreateOnPost; @@ -91,6 +91,25 @@ sub reject_createonpost_domain } +# Descriptions: +# Arguments: OBJ($self) STR($rule) STR($sender) +# Side Effects: none +# Return Value: ARRAY(STR, STR) +sub reject_list_header_field +{ + my ($self, $rule, $sender) = @_; + my $curproc = $self->{ _curproc }; + my $header = $curproc->incoming_message_header(); + my $list_help = $header->get("List-Help") || ''; + + if ($list_help) { + return("matched", "deny"); + } + + return(0, undef); +} + + =head1 CODING STYLE See C<http://www.fml.org/software/FNF/> on fml coding style guide. |