viewvc.cgi/perl/remail.pl

#!/usr/bin/perl -w

# read mbox with error messages from mail server (like 
# Returned mail: Host unknown (Name server...
# and dump e-mails which are returned so that they can be feeded
# back to sendmail using
# $ sendmail -t < mail.0

my $b;

my $nr=1;

while(<>) {
        if (m,^Content-Type: message/rfc822,) {
                $foo=<>;
                while ($foo !~ m,^Return-Path,) { $foo=<>; };
                if ($foo !~ m,^Return-Path: <MAILER-DAEMON>,) {
                        open(M,"> mail.$nr") || die $!;
                        print "$nr: $foo\n\t$b\n";
                        print M $foo;
                        chomp $b;
                        while($foo=<>) {
                                last if ($foo=~m,^$b,);
                                print M $foo;
                        }
                        close(M);
                        $nr++;
                }
        }
        $b=$_;
}
                                
                        
1	#!/usr/bin/perl -w
2
3	# read mbox with error messages from mail server (like
4	# Returned mail: Host unknown (Name server...
5	# and dump e-mails which are returned so that they can be feeded
6	# back to sendmail using
7	# $ sendmail -t < mail.0
8
9	my $b;
10
11	my $nr=1;
12
13	while(<>) {
14	if (m,^Content-Type: message/rfc822,) {
15	$foo=<>;
16	while ($foo !~ m,^Return-Path,) { $foo=<>; };
17	if ($foo !~ m,^Return-Path: <MAILER-DAEMON>,) {
18	open(M,"> mail.$nr") \|\| die $!;
19	print "$nr: $foo\n\t$b\n";
20	print M $foo;
21	chomp $b;
22	while($foo=<>) {
23	last if ($foo=~m,^$b,);
24	print M $foo;
25	}
26	close(M);
27	$nr++;
28	}
29	}
30	$b=$_;
31	}
32
33