1 7d6d378a 2022-08-24 op #!/usr/bin/env perl
  2 7d6d378a 2022-08-24 op 
  3 7d6d378a 2022-08-24 op use open ":std", ":encoding(UTF-8)";
  4 7d6d378a 2022-08-24 op use utf8;
  5 7d6d378a 2022-08-24 op use strict;
  6 7d6d378a 2022-08-24 op use warnings;
  7 7d6d378a 2022-08-24 op use v5.32;
  8 7d6d378a 2022-08-24 op 
  9 054f3fd4 2022-08-25 op use OpenBSD::Pledge;
 10 054f3fd4 2022-08-25 op use OpenBSD::Unveil;
 11 054f3fd4 2022-08-25 op 
 12 04eab9af 2022-08-25 op use lib ".";
 13 2064ca3f 2022-08-25 op use GotMArc qw(san $logo mid2path initpage endpage);
 14 04eab9af 2022-08-25 op 
 15 7d6d378a 2022-08-24 op my $outdir = $ENV{'OUTDIR'};
 16 7d6d378a 2022-08-24 op die 'Set $OUTDIR' unless defined $outdir;
 17 7d6d378a 2022-08-24 op 
 18 054f3fd4 2022-08-25 op unveil("/usr/local/bin/mshow", "rx") or die "unveil mshow: $!";
 19 054f3fd4 2022-08-25 op unveil($outdir, "rwc") or die "unveil $outdir: $!";
 20 054f3fd4 2022-08-25 op unveil(".", "rwc") or die "unveil .: $!";
 21 054f3fd4 2022-08-25 op pledge("stdio rpath wpath cpath proc exec") or die "pledge: $!";
 22 054f3fd4 2022-08-25 op 
 23 7d6d378a 2022-08-24 op my $tid;
 24 7d6d378a 2022-08-24 op while (<>) {
 25 7d6d378a 2022-08-24 op 	chomp;
 26 7d6d378a 2022-08-24 op 
 27 7d6d378a 2022-08-24 op 	m/^([^ ]+) <([^>]+)> (.+)(\d{4}-\d{2}-\d{2} \d{2}:\d{2}) <([^>]+)> (.*)/;
 28 7d6d378a 2022-08-24 op 	die "can't parse: $_" unless defined $1;
 29 7d6d378a 2022-08-24 op 	my ($fname, $mid, $indent, $date, $from, $subj) = ($1, $2, $3, $4, $5, $6);
 30 7d6d378a 2022-08-24 op 	$subj = san($subj);
 31 7d6d378a 2022-08-24 op 	$subj =~ s/\s+/ /g;
 32 7d6d378a 2022-08-24 op 	$subj =~ s/\s+$//;
 33 7d6d378a 2022-08-24 op 
 34 2064ca3f 2022-08-25 op 	$mid = mid2path($mid);
 35 7d6d378a 2022-08-24 op 
 36 7d6d378a 2022-08-24 op 	my $level = length($indent) - 1;
 37 7d6d378a 2022-08-24 op 	$level = 10 if $indent =~ m/\.\.\d{2}\.\./;
 38 7d6d378a 2022-08-24 op 
 39 7d6d378a 2022-08-24 op 	$tid = $mid if $level == 0;
 40 f3e4455d 2022-08-25 op 	die "unknown tid" unless defined $tid;
 41 7d6d378a 2022-08-24 op 
 42 c971fcee 2022-08-25 op 	my $dest = "$outdir/mail/$mid.html";
 43 c971fcee 2022-08-25 op 	next if -f $dest;
 44 c971fcee 2022-08-25 op 
 45 7d6d378a 2022-08-24 op 	open(my $fh, '>', "$dest") or die "can't open $dest: $!";
 46 7d6d378a 2022-08-24 op 
 47 04eab9af 2022-08-25 op 	initpage $fh, $subj;
 48 7d6d378a 2022-08-24 op 
 49 f1ceade9 2022-08-24 op 	# prepare the parts listing file
 50 f1ceade9 2022-08-24 op 	$ENV{'MESSAGE_ID'} = $mid;
 51 f1ceade9 2022-08-24 op 	open(my $parts, '+>', "parts.html")
 52 f1ceade9 2022-08-24 op 	    or die "can't create parts.html: $!";
 53 f1ceade9 2022-08-24 op 
 54 7d6d378a 2022-08-24 op 	open(my $mshow, "-|", "mshow", "-nNA", "text/plain", $fname)
 55 7d6d378a 2022-08-24 op 	    or die "can't exec mshow: $!";
 56 7d6d378a 2022-08-24 op 
 57 84989e10 2022-08-24 op 	open(my $text, '>', "$outdir/text/$mid.txt")
 58 84989e10 2022-08-24 op 	    or die "can't open $outdir/text/$mid.txt: $!";
 59 84989e10 2022-08-24 op 
 60 7d6d378a 2022-08-24 op 	print $fh "<header class='mail-header'>";
 61 7d6d378a 2022-08-24 op 	print $fh "<p>";
 62 7d6d378a 2022-08-24 op 	print $fh $logo;
 63 4a89bbd3 2022-08-25 op 	print $fh "<a href='/'>Index</a>";
 64 4a89bbd3 2022-08-25 op 	print $fh " | ";
 65 4a89bbd3 2022-08-25 op 	print $fh "<a href='/thread/$tid.html#$mid'>Thread</a>";
 66 7d6d378a 2022-08-24 op 	print $fh "</p>";
 67 7d6d378a 2022-08-24 op 	print $fh "<dl>";
 68 7d6d378a 2022-08-24 op 	while (<$mshow>) {
 69 7d6d378a 2022-08-24 op 		chomp;
 70 84989e10 2022-08-24 op 		say $text $_;
 71 7d6d378a 2022-08-24 op 		last if /^$/;
 72 7d6d378a 2022-08-24 op 		my ($h, $v) = m/^([-A-Za-z]+): (.*)/;
 73 7d6d378a 2022-08-24 op 		die "bogus line? $fname : $_" unless (defined $h and defined $v);
 74 7d6d378a 2022-08-24 op 
 75 7d6d378a 2022-08-24 op 		# drop the (1 day ago) string
 76 7d6d378a 2022-08-24 op 		$v =~ s/\(.*\)//g if ($h eq "Date");
 77 7d6d378a 2022-08-24 op 
 78 7d6d378a 2022-08-24 op 		print $fh "<dt>", san($h), ":</dt>";
 79 7d6d378a 2022-08-24 op 		print $fh "<dd>", san($v), "</dd>";
 80 7d6d378a 2022-08-24 op 	}
 81 ed91b1e1 2022-08-24 op 	print $fh "</dl>";
 82 a53202df 2022-08-25 op 	print $fh "<p>Download raw <a href='/text/$mid.txt'>body</a>.</p>";
 83 ed91b1e1 2022-08-24 op 	print $fh "</header>";
 84 7d6d378a 2022-08-24 op 
 85 7d6d378a 2022-08-24 op 	print $fh "<pre>";
 86 5b01d758 2022-08-25 op 	while (<$mshow>) {
 87 5b01d758 2022-08-25 op 		print $text $_;
 88 5b01d758 2022-08-25 op 		print $fh san($_);
 89 5b01d758 2022-08-25 op 	}
 90 7d6d378a 2022-08-24 op 	print $fh "</pre>";
 91 7d6d378a 2022-08-24 op 
 92 f1ceade9 2022-08-24 op 	# generate the listing for the exported parts
 93 f1ceade9 2022-08-24 op 	my $part_seen = 0;
 94 f1ceade9 2022-08-24 op 	while (<$parts>) {
 95 f1ceade9 2022-08-24 op 		if (!$part_seen) {
 96 f1ceade9 2022-08-24 op 			$part_seen = 1;
 97 f1ceade9 2022-08-24 op 			say $fh "<ul class='parts'>";
 98 f1ceade9 2022-08-24 op 		}
 99 f1ceade9 2022-08-24 op 		print $fh $_;
100 f1ceade9 2022-08-24 op 	}
101 f1ceade9 2022-08-24 op 	say $fh "</ul>" if $part_seen;
102 f1ceade9 2022-08-24 op 
103 04eab9af 2022-08-25 op 	endpage $fh;
104 7d6d378a 2022-08-24 op 
105 84989e10 2022-08-24 op 	close($text);
106 7d6d378a 2022-08-24 op 	close($mshow);
107 f1ceade9 2022-08-24 op 	close($parts);
108 7d6d378a 2022-08-24 op 	close($fh);
109 7d6d378a 2022-08-24 op }
110 f1ceade9 2022-08-24 op 
111 f1ceade9 2022-08-24 op unlink "parts.html";