viewvc.cgi/perl/mailman2mbox.pl

#!/usr/bin/perl -w

# Fix stupd html which is embedded in mailman mbox which you download
# this is a filter. Use it like this:
#
# mailman2mbox.pl < mbox > mbox-new
#
# 2003-09-04 Dobrica Pavlinusic <dpavlin@rot13.org>
#

my $first = 1;

while(<STDIN>) {
        if ($first) {
                chomp;
                $first = 0;
                next if ($_ eq ""); # skip first empty line
                $_ .= "\n";
        }

        s,^</*PRE>,,g;
        s,<A HREF="[^"]*">(.+?)</A>,$1,g;

        # fix quoting
        s,^&gt;<i>,>,;
        s,^</I>(&gt;[^<]*)<i>,$1,;
        s,^</I>,,;

        s/&lt;/</g;
        s/&gt;/>/g;
        s/&quot;/"/g;
        s/&amp;/&/g;
        s/^(From.+?) at (.+)$/$1\@$2/g;
        print;
}
1	#!/usr/bin/perl -w
2
3	# Fix stupd html which is embedded in mailman mbox which you download
4	# this is a filter. Use it like this:
5	#
6	# mailman2mbox.pl < mbox > mbox-new
7	#
8	# 2003-09-04 Dobrica Pavlinusic <dpavlin@rot13.org>
9	#
10
11	my $first = 1;
12
13	while(<STDIN>) {
14	if ($first) {
15	chomp;
16	$first = 0;
17	next if ($_ eq ""); # skip first empty line
18	$_ .= "\n";
19	}
20
21	s,^</*PRE>,,g;
22	s,<A HREF="[^"]*">(.+?)</A>,$1,g;
23
24	# fix quoting
25	s,^><i>,>,;
26	s,^</I>(>[^<]*)<i>,$1,;
27	s,^</I>,,;
28
29	s/</</g;
30	s/>/>/g;
31	s/"/"/g;
32	s/&/&/g;
33	s/^(From.+?) at (.+)$/$1\@$2/g;
34	print;
35	}