update documents, comments

4 files changed, 30 insertions, 15 deletions

diff --git a/fml/lib/Mail/Bounce/Exim.pm b/fml/lib/Mail/Bounce/Exim.pm
index 473815b6..f7a797d4 100644
--- a/fml/lib/Mail/Bounce/Exim.pm
+++ b/fml/lib/Mail/Bounce/Exim.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: Exim.pm,v 1.3 2001/07/30 14:42:34 fukachan Exp $
+# $FML: Exim.pm,v 1.4 2001/12/22 09:21:15 fukachan Exp $
 #
 
 
@@ -37,15 +37,21 @@ See C<Mail::Bounce> for more details.
  Subject: Mail delivery failed: returning message to sender
  Message-Id: <E11fxjP-0005MW-00@eriko.fml.org>
 
-=cut
+=head1 TODO
+
+need to guess MTA as "exim" ???
 
+	if (/^Message-ID:\s+\<[\w\d]+\-[\w\d]+\-[\w\d]+\@/i) {
+	    $MTA = "exim";
+	}
 
-# need to guess MTA as "exim" ???
-#	if (/^Message-ID:\s+\<[\w\d]+\-[\w\d]+\-[\w\d]+\@/i) {
-#	    $MTA = "exim";
-#	}
+=cut
 
 
+# Descriptions: trap X-Failed-Recipients: exim returns.
+#    Arguments: OBJ($self) OBJ($msg) HASH_REF($result)
+# Side Effects: update $result
+# Return Value: none
 sub analyze
 {
     my ($self, $msg, $result) = @_;
@@ -61,6 +67,7 @@ sub analyze
     }
 }
 
+
 =head1 AUTHOR
 
 Ken'ichi Fukamachi
diff --git a/fml/lib/Mail/Bounce/GOO.pm b/fml/lib/Mail/Bounce/GOO.pm
index 0e3813a2..02829bae 100644
--- a/fml/lib/Mail/Bounce/GOO.pm
+++ b/fml/lib/Mail/Bounce/GOO.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: GOO.pm,v 1.2 2001/07/30 14:42:34 fukachan Exp $
+# $FML: GOO.pm,v 1.3 2001/12/22 09:21:15 fukachan Exp $
 #
 
 
@@ -40,6 +40,10 @@ See C<Mail::Bounce> for more details.
 =cut
 
 
+# Descriptions: trap error pattern in subject from goo.ne.jp.
+#    Arguments: OBJ($self) OBJ($msg) HASH_REF($result)
+# Side Effects: update $result
+# Return Value: none
 sub analyze
 {
     my ($self, $msg, $result) = @_;
@@ -59,6 +63,7 @@ sub analyze
     }
 }
 
+
 =head1 AUTHOR
 
 Ken'ichi Fukamachi
diff --git a/fml/lib/Mail/Bounce/Qmail.pm b/fml/lib/Mail/Bounce/Qmail.pm
index 8f72124e..8e4c47f7 100644
--- a/fml/lib/Mail/Bounce/Qmail.pm
+++ b/fml/lib/Mail/Bounce/Qmail.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: Qmail.pm,v 1.3 2001/07/30 14:42:34 fukachan Exp $
+# $FML: Qmail.pm,v 1.4 2001/12/22 09:21:16 fukachan Exp $
 #
 
 
@@ -32,6 +32,10 @@ format), as describbed in
 =cut
 
 
+# Descriptions: parse qmail error message
+#    Arguments: OBJ($self) OBJ($msg) HASH_REF($result)
+# Side Effects: update $result
+# Return Value: none
 sub analyze
 {
     my ($self, $msg, $result) = @_;
diff --git a/fml/lib/Mail/Bounce/Smtpfeed.pm b/fml/lib/Mail/Bounce/Smtpfeed.pm
index 7fa53e3e..f7e1cb6d 100644
--- a/fml/lib/Mail/Bounce/Smtpfeed.pm
+++ b/fml/lib/Mail/Bounce/Smtpfeed.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: Smtpfeed.pm,v 1.2 2001/07/30 14:42:34 fukachan Exp $
+# $FML: Smtpfeed.pm,v 1.3 2001/12/22 09:21:16 fukachan Exp $
 #
 
 
@@ -38,12 +38,10 @@ at the header somewhere in the error message.
 =cut
 
 
-#	# smtpfeed -1 -F hack
-#	if (/^To: \(original recipient in envelope at \S+\) <(\S+)>/) {
-#	    &PickUpHint($1);
-#	}
-
-
+# Descriptions: trap error patterin in To: (smtpfeed -F mode).
+#    Arguments: OBJ($self) OBJ($msg) HASH_REF($result)
+# Side Effects: update $result
+# Return Value: none
 sub analyze
 {
     my ($self, $msg, $result) = @_;
@@ -67,6 +65,7 @@ sub analyze
     $result->{ $addr }->{ 'hints' }           = 'smtpfeed';
 }
 
+
 =head1 AUTHOR
 
 Ken'ichi Fukamachi