diff options
| author | fukachan <fukachan> | 2001-04-10 11:52:26 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-04-10 11:52:26 +0000 |
| commit | 9c524c6bd5e2ce40099383140c562bfa58f57e6a (patch) | |
| tree | e633cfe589df120fa4d132079c2e1668f0841613 | |
| parent | f5fab65b2dd5fc8a008ea46c78dc8b833042ffa4 (diff) | |
| download | fml8-9c524c6bd5e2ce40099383140c562bfa58f57e6a.tar.gz fml8-9c524c6bd5e2ce40099383140c562bfa58f57e6a.tar.bz2 fml8-9c524c6bd5e2ce40099383140c562bfa58f57e6a.zip | |
put results in $result after editing it
| -rw-r--r-- | fml/lib/Mail/Bounce/DSN.pm | 5 | ||||
| -rw-r--r-- | fml/lib/Mail/Bounce/Postfix19991231.pm | 5 |
2 files changed, 4 insertions, 6 deletions
diff --git a/fml/lib/Mail/Bounce/DSN.pm b/fml/lib/Mail/Bounce/DSN.pm index a4d39427..2ff8cd1d 100644 --- a/fml/lib/Mail/Bounce/DSN.pm +++ b/fml/lib/Mail/Bounce/DSN.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: DSN.pm,v 1.2 2001/04/09 14:06:15 fukachan Exp $ +# $FML: DSN.pm,v 1.3 2001/04/09 15:31:48 fukachan Exp $ # @@ -41,8 +41,7 @@ Mail::Bounce::DSN - DSN error message format parser sub analyze { - my ($self, $msg) = @_; - my $result = {}; + my ($self, $msg, $result) = @_; my $m; if ($m = $msg->find( { data_type => 'message/delivery-status' } )) { diff --git a/fml/lib/Mail/Bounce/Postfix19991231.pm b/fml/lib/Mail/Bounce/Postfix19991231.pm index 3b7d6641..8d903a4a 100644 --- a/fml/lib/Mail/Bounce/Postfix19991231.pm +++ b/fml/lib/Mail/Bounce/Postfix19991231.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: DSN.pm,v 1.2 2001/04/09 14:06:15 fukachan Exp $ +# $FML: Postfix19991231.pm,v 1.1 2001/04/09 15:32:24 fukachan Exp $ # @@ -41,8 +41,7 @@ Mail::Bounce::Postfix19991231 - Postfix-19991231 error message format parser sub analyze { - my ($self, $msg) = @_; - my $result = {}; + my ($self, $msg, $result) = @_; my $state = 0; my $pattern = '--- Delivery error report follows ---'; my $end_pattern = '--- Undelivered message follows ---'; |