Diff for perl-modules/Platon/Log/Mail/Postfix.pm between version 1.9 and 1.10
| version 1.9, 2004/12/09 17:42:15 |
version 1.10, 2004/12/09 18:09:53 |
|
|
| # 2004-10-19 - created |
# 2004-10-19 - created |
| # |
# |
| |
|
| # $Platon: perl-modules/Platon/Log/Mail/Postfix.pm,v 1.8 2004/12/09 12:33:31 rajo Exp $ |
# $Platon: perl-modules/Platon/Log/Mail/Postfix.pm,v 1.9 2004/12/09 17:42:15 rajo Exp $ |
| |
|
| package Platon::Log::Mail::Postfix; |
package Platon::Log::Mail::Postfix; |
| |
|
| Line 252 sub savelog($$;) |
|
| Line 252 sub savelog($$;) |
|
| |
|
| # try to parse status info from amavis: |
# try to parse status info from amavis: |
| # ... relay=127.0.0.1[127.0.0.1], delay=4, status=sent (250 2.6.0 Ok, id=32286-03, from MTA: 250 Ok: queued as 9A1491400624) |
# ... relay=127.0.0.1[127.0.0.1], delay=4, status=sent (250 2.6.0 Ok, id=32286-03, from MTA: 250 Ok: queued as 9A1491400624) |
| |
if ($xx->{rest} =~ m/(\S+), id=(\S+) .* VIRUS: (.*)\)$/o) { |
| |
$xx->{status} = $1; |
| |
$xx->{amavis_id} = $2; |
| |
$xx->{amavis_virus_name} = $3; |
| |
} |
| if ($xx->{rest} =~ m/id=(\S+),.*queued as (\S+)\)$/o) { |
if ($xx->{rest} =~ m/id=(\S+),.*queued as (\S+)\)$/o) { |
| $xx->{amavis_id} = $1; |
$xx->{amavis_id} = $1; |
| $xx->{new_postfix_key} = $2; |
$xx->{new_postfix_key} = $2; |
Platon Group <platon@platon.org> http://platon.org/
|
|