NAME FML::Filter::Header - filter based on mail header content. SYNOPSIS use FML::Filter::Header; my $filter = new FML::Filter::Header; if (defined $filter) { my $rules = $config->get_as_array_ref('article_header_filter_rules'); if (defined $rules) { $filter->set_rules( $rules ); } $filter->header_check($mesg); if ($filter->error()) { ... error handling ... } } DESCRIPTION "FML::Filter::Header" is the collection of filter rules based on mail header content. METHODS new() constructor. set_rules( $rules ) overwrite rules by specified @$rules ($rules is ARRAY_REF). header_check($msg); $msg is "Mail::Message" object. "Usage": use FML::Filter::Header; my $filter = new FML::Filter::Header; my $msg = $curproc->incoming_message(); $filter->header_check($msg); if ($filter->error()) { # do something for wrong formated message ... } FILTER RULES check_message_id($msg) validate the message-id in the given message $msg. This routine checks whether the message-id has @. check_date($msg) validate the date in the given message $msg. This routine checks if the header has no date field or not. CODING STYLE See "http://www.fml.org/software/FNF/" on fml coding style guide. AUTHOR Ken'ichi Fukamachi COPYRIGHT Copyright (C) 2001,2002,2003,2004,2005,2007,2008 Ken'ichi Fukamachi All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. HISTORY FML::Filter::Header first appeared in fml8 mailing list driver package. See "http://www.fml.org/" for more details.