1 7d6d378a 2022-08-24 op #!/usr/bin/env perl
3 7d6d378a 2022-08-24 op use open ":std", ":encoding(UTF-8)";
10 2064ca3f 2022-08-25 op use GotMArc qw(san $logo mid2path initpage endpage);
12 7d6d378a 2022-08-24 op my $outdir = $ENV{'OUTDIR'};
13 7d6d378a 2022-08-24 op die 'Set $OUTDIR' unless defined $outdir;
14 7d6d378a 2022-08-24 op mkdir $outdir;
20 7d6d378a 2022-08-24 op m/^([^ ]+) <([^>]+)> (.+)(\d{4}-\d{2}-\d{2} \d{2}:\d{2}) <([^>]+)> (.*)/;
21 7d6d378a 2022-08-24 op die "can't parse: $_" unless defined $1;
22 7d6d378a 2022-08-24 op my ($fname, $mid, $indent, $date, $from, $subj) = ($1, $2, $3, $4, $5, $6);
23 7d6d378a 2022-08-24 op $subj = san($subj);
24 7d6d378a 2022-08-24 op $subj =~ s/\s+/ /g;
25 7d6d378a 2022-08-24 op $subj =~ s/\s+$//;
27 2064ca3f 2022-08-25 op $mid = mid2path($mid);
29 9be16529 2022-08-24 op my $dest = "$outdir/mail/$mid.html";
30 9be16529 2022-08-24 op next if -f $dest;
32 7d6d378a 2022-08-24 op my $level = length($indent) - 1;
33 7d6d378a 2022-08-24 op $level = 10 if $indent =~ m/\.\.\d{2}\.\./;
35 7d6d378a 2022-08-24 op $tid = $mid if $level == 0;
36 f3e4455d 2022-08-25 op die "unknown tid" unless defined $tid;
38 7d6d378a 2022-08-24 op open(my $fh, '>', "$dest") or die "can't open $dest: $!";
40 04eab9af 2022-08-25 op initpage $fh, $subj;
42 f1ceade9 2022-08-24 op # prepare the parts listing file
43 f1ceade9 2022-08-24 op $ENV{'MESSAGE_ID'} = $mid;
44 f1ceade9 2022-08-24 op open(my $parts, '+>', "parts.html")
45 f1ceade9 2022-08-24 op or die "can't create parts.html: $!";
47 7d6d378a 2022-08-24 op open(my $mshow, "-|", "mshow", "-nNA", "text/plain", $fname)
48 7d6d378a 2022-08-24 op or die "can't exec mshow: $!";
50 84989e10 2022-08-24 op open(my $text, '>', "$outdir/text/$mid.txt")
51 84989e10 2022-08-24 op or die "can't open $outdir/text/$mid.txt: $!";
53 7d6d378a 2022-08-24 op print $fh "<header class='mail-header'>";
54 7d6d378a 2022-08-24 op print $fh "<p>";
55 7d6d378a 2022-08-24 op print $fh $logo;
56 4a89bbd3 2022-08-25 op print $fh "<a href='/'>Index</a>";
57 4a89bbd3 2022-08-25 op print $fh " | ";
58 4a89bbd3 2022-08-25 op print $fh "<a href='/thread/$tid.html#$mid'>Thread</a>";
59 7d6d378a 2022-08-24 op print $fh "</p>";
60 7d6d378a 2022-08-24 op print $fh "<dl>";
61 7d6d378a 2022-08-24 op while (<$mshow>) {
65 7d6d378a 2022-08-24 op my ($h, $v) = m/^([-A-Za-z]+): (.*)/;
66 7d6d378a 2022-08-24 op die "bogus line? $fname : $_" unless (defined $h and defined $v);
68 7d6d378a 2022-08-24 op # drop the (1 day ago) string
69 7d6d378a 2022-08-24 op $v =~ s/\(.*\)//g if ($h eq "Date");
71 7d6d378a 2022-08-24 op print $fh "<dt>", san($h), ":</dt>";
72 7d6d378a 2022-08-24 op print $fh "<dd>", san($v), "</dd>";
74 ed91b1e1 2022-08-24 op print $fh "</dl>";
75 a53202df 2022-08-25 op print $fh "<p>Download raw <a href='/text/$mid.txt'>body</a>.</p>";
76 ed91b1e1 2022-08-24 op print $fh "</header>";
78 7d6d378a 2022-08-24 op print $fh "<pre>";
79 5b01d758 2022-08-25 op while (<$mshow>) {
80 5b01d758 2022-08-25 op print $text $_;
81 5b01d758 2022-08-25 op print $fh san($_);
83 7d6d378a 2022-08-24 op print $fh "</pre>";
85 f1ceade9 2022-08-24 op # generate the listing for the exported parts
86 f1ceade9 2022-08-24 op my $part_seen = 0;
87 f1ceade9 2022-08-24 op while (<$parts>) {
88 f1ceade9 2022-08-24 op if (!$part_seen) {
89 f1ceade9 2022-08-24 op $part_seen = 1;
90 f1ceade9 2022-08-24 op say $fh "<ul class='parts'>";
94 f1ceade9 2022-08-24 op say $fh "</ul>" if $part_seen;
99 7d6d378a 2022-08-24 op close($mshow);
100 f1ceade9 2022-08-24 op close($parts);
104 f1ceade9 2022-08-24 op unlink "parts.html";