1 7d6d378a 2022-08-24 op #!/usr/bin/env perl
3 7d6d378a 2022-08-24 op use open ":std", ":encoding(UTF-8)";
9 7d6d378a 2022-08-24 op my $outdir = $ENV{'OUTDIR'};
10 7d6d378a 2022-08-24 op die 'Set $OUTDIR' unless defined $outdir;
11 7d6d378a 2022-08-24 op mkdir $outdir;
13 7d6d378a 2022-08-24 op my $hdr = do {
14 7d6d378a 2022-08-24 op local $/ = undef;
15 7d6d378a 2022-08-24 op open my $fh, "<", "head.html"
16 7d6d378a 2022-08-24 op or die "can't open head.html: $!";
20 7d6d378a 2022-08-24 op my $foot = do {
21 7d6d378a 2022-08-24 op local $/ = undef;
22 7d6d378a 2022-08-24 op open my $fh, "<", "foot.html"
23 7d6d378a 2022-08-24 op or die "can't open foot.html: $!";
27 7d6d378a 2022-08-24 op my $logo = <<EOF;
28 7d6d378a 2022-08-24 op <img srcset='/got-tiny.png, /got-tiny@2x.png 2x'
29 7d6d378a 2022-08-24 op src='/got-tiny.png'
30 7d6d378a 2022-08-24 op alt='"GOT", but the "O" is a cute, smiling sun' />
34 7d6d378a 2022-08-24 op my $str = shift;
35 7d6d378a 2022-08-24 op $str =~ s/&/\&/g;
36 7d6d378a 2022-08-24 op $str =~ s/</\</g;
37 7d6d378a 2022-08-24 op $str =~ s/>/\>/g;
44 7d6d378a 2022-08-24 op say; # continue the pipeline
46 7d6d378a 2022-08-24 op m/^([^ ]+) <([^>]+)> (.+)(\d{4}-\d{2}-\d{2} \d{2}:\d{2}) <([^>]+)> (.*)/;
47 7d6d378a 2022-08-24 op die "can't parse: $_" unless defined $1;
48 7d6d378a 2022-08-24 op my ($fname, $mid, $indent, $date, $from, $subj) = ($1, $2, $3, $4, $5, $6);
49 7d6d378a 2022-08-24 op $subj = san($subj);
50 7d6d378a 2022-08-24 op $subj =~ s/\s+/ /g;
51 7d6d378a 2022-08-24 op $subj =~ s/\s+$//;
53 7d6d378a 2022-08-24 op $mid =~ s,_,__,g;
54 7d6d378a 2022-08-24 op $mid =~ s,/,_,g;
58 7d6d378a 2022-08-24 op next if -f "$outdir/$mid.html";
60 7d6d378a 2022-08-24 op my $level = length($indent) - 1;
61 7d6d378a 2022-08-24 op $level = 10 if $indent =~ m/\.\.\d{2}\.\./;
63 7d6d378a 2022-08-24 op $tid = $mid if $level == 0;
65 7d6d378a 2022-08-24 op my $dest = "$outdir/$mid.html";
66 7d6d378a 2022-08-24 op open(my $fh, '>', "$dest") or die "can't open $dest: $!";
68 7d6d378a 2022-08-24 op say $fh $hdr =~ s/TITLE/$subj/r;
70 7d6d378a 2022-08-24 op open(my $mshow, "-|", "mshow", "-nNA", "text/plain", $fname)
71 7d6d378a 2022-08-24 op or die "can't exec mshow: $!";
73 7d6d378a 2022-08-24 op print $fh "<header class='mail-header'>";
74 7d6d378a 2022-08-24 op print $fh "<p>";
75 7d6d378a 2022-08-24 op print $fh $logo;
76 36394334 2022-08-24 op print $fh "<a href='/'>← Back to the index</a>";
77 7d6d378a 2022-08-24 op print $fh " or ";
78 7d6d378a 2022-08-24 op print $fh "<a href='/thread/$tid.html#$mid'>→ go to the thread</a>.";
79 7d6d378a 2022-08-24 op print $fh "</p>";
80 7d6d378a 2022-08-24 op print $fh "<dl>";
81 7d6d378a 2022-08-24 op while (<$mshow>) {
84 7d6d378a 2022-08-24 op my ($h, $v) = m/^([-A-Za-z]+): (.*)/;
85 7d6d378a 2022-08-24 op die "bogus line? $fname : $_" unless (defined $h and defined $v);
87 7d6d378a 2022-08-24 op # drop the (1 day ago) string
88 7d6d378a 2022-08-24 op $v =~ s/\(.*\)//g if ($h eq "Date");
90 7d6d378a 2022-08-24 op print $fh "<dt>", san($h), ":</dt>";
91 7d6d378a 2022-08-24 op print $fh "<dd>", san($v), "</dd>";
93 7d6d378a 2022-08-24 op print $fh "</dl></header>";
95 7d6d378a 2022-08-24 op my $body = do {
96 7d6d378a 2022-08-24 op local $/ = undef;
100 7d6d378a 2022-08-24 op print $fh "<pre>";
101 7d6d378a 2022-08-24 op # print $fh san($_) while <>;
102 7d6d378a 2022-08-24 op print $fh san($body // "");
103 7d6d378a 2022-08-24 op print $fh "</pre>";
105 7d6d378a 2022-08-24 op print $fh $foot;
107 7d6d378a 2022-08-24 op close($mshow);