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