Hi (again):
> Is there a way to modify the script so that it will get every failed recipient?
If you mean like this (using) you data as attached on Jul 8 @ 00:38 :
... while talking to here.com.:
Final-Recipient: recipient@here.com
Action: failed
Status: 5.1.1
Subject: Returned mail: User unknown
Date: Thu, 3 Jul 2008 06:17:24 -0400
From: sender
To: recipient@here.com
Problem: Report
... while talking to here.com.:
Final-Recipient: recipient@here.com
Action: failed
Status: 5.1.1
Subject: Returned mail: User unknown
Date: Thu, 3 Jul 2008 06:17:26 -0400
From: sender
To: recipient@here.com
Problem: Report
...then use this slightly modified version:
#!/usr/bin/perl
use strict;
use warnings;
my $step=0;
my $id=0;
my $old=1;
my ($problem, $recipient, $action, $status, $subject, $date, $from, $to, $real_subject ) ;
while (<>) {
#debug print "$step $. $_\n" if $step != $old;
#debug $old = $step;
my ($start, $stop);
if (($start,$stop) = /^--(\S+\.\d+)\S+?(-?-?)\s?$/) {
if ($start ne $id) { # New ID? Clear all memory
#debug print "<<< $. $_";
$id = $start;
$step =0;
$date = q()."\n";
$from = q()."\n";
$to = q()."\n";
$recipient = q()."\n";
$action = q()."\n";
$status = q()."\n";
$real_subject = q()."\n";
} else {
if ($stop) { # Found closing marker
print $problem, $recipient, $action, $status, $subject, $date, $from, $to, $real_subject, "\n";
$step = 0; # Done. Start again.
}
}
}
if (0==$step) {
$subject = $_ if/^Subject:/;
# next unless /^[ -]+.*permanent fatal.*-\s?$/;
next unless /^[ -]+.*fatal error.*-\s?$/;
$step++;
}
elsif (1==$step) {
next unless /^[ -]+Transcript.*-\s?$/;
$problem = <>;
$step++;
}
elsif (2==$step) {
$date = $_ if /^Date:/;
$from = $_ if /^From:/;
$to = $_ if /^To:/;
($recipient=$_)=~s/(^Final-Recipient:)(?:.+;)(.+)/$1$2/ if /^Final-Recipient:/;
$action = $_ if /^Action:/;
$status = $_ if /^Status:/;
($real_subject=$_)=~s/^Subject:/Problem:/ if /^Subject:/;
}
}
Regards!
...JRF...
