diff options
| author | fukachan <fukachan> | 2002-12-20 03:40:48 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-12-20 03:40:48 +0000 |
| commit | f5b4bab5bcf2fd19656757935a4d3454fd23aa26 (patch) | |
| tree | 0aea23a80ebd4a14df5ea25766cb251fff28e891 /fml/lib | |
| parent | eebea87256b7cc29db4ff30166e1b465f7b554aa (diff) | |
| download | fml8-f5b4bab5bcf2fd19656757935a4d3454fd23aa26.tar.gz fml8-f5b4bab5bcf2fd19656757935a4d3454fd23aa26.tar.bz2 fml8-f5b4bab5bcf2fd19656757935a4d3454fd23aa26.zip | |
fix comments
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Config/Convert.pm | 6 | ||||
| -rw-r--r-- | fml/lib/FML/Filter/Header.pm | 11 |
2 files changed, 9 insertions, 8 deletions
diff --git a/fml/lib/FML/Config/Convert.pm b/fml/lib/FML/Config/Convert.pm index bd87c38e..b2a00d13 100644 --- a/fml/lib/FML/Config/Convert.pm +++ b/fml/lib/FML/Config/Convert.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: Convert.pm,v 1.11 2002/09/22 14:56:48 fukachan Exp $ +# $FML: Convert.pm,v 1.12 2002/09/28 09:27:00 fukachan Exp $ # @@ -52,7 +52,7 @@ Specify HASH_REF $config as real value. =cut -# Descriptions: conversion filter. +# Descriptions: conversion filter for file handles. # Arguments: HANDLE($in) HANDLE($out) HASH_REF($config) # Side Effects: print out to handle $out # Return Value: none @@ -72,7 +72,7 @@ sub convert } -# Descriptions: conversion filter. +# Descriptions: conversion filter for files. # Arguments: STR($src) STR($dst) HASH_REF($config) # Side Effects: print out to file $out # Return Value: none diff --git a/fml/lib/FML/Filter/Header.pm b/fml/lib/FML/Filter/Header.pm index 6e28349a..411e427b 100644 --- a/fml/lib/FML/Filter/Header.pm +++ b/fml/lib/FML/Filter/Header.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: Header.pm,v 1.20 2002/09/24 15:02:29 fukachan Exp $ +# $FML: Header.pm,v 1.1 2002/09/30 11:00:54 fukachan Exp $ # package FML::Filter::Header; @@ -22,14 +22,14 @@ FML::Filter::Header - filter based on mail header content =head1 DESCRIPTION -C<FML::Filter::Header> is a collectoin of filter rules based on -mail header content. +C<FML::Filter::Header> is the collectoin of filter rules based on mail +header content. =head1 METHODS =head2 C<new()> -usual constructor. +constructor. =cut @@ -37,6 +37,7 @@ usual constructor. my $debug = 0; +# XXX-TODO: need this default rules here ? (principle of least surprise?) my (@default_rules) = qw(check_message_id); @@ -122,7 +123,7 @@ sub header_check } -=head1 RULES +=head1 FILTER RULES =cut |