1 7d6d378a 2022-08-24 op #!/usr/bin/env perl
  2 1bcb9899 2022-08-29 op #
  3 1bcb9899 2022-08-29 op # mexp was written by Omar Polo <op@openbsd.org> and is placed in the
  4 1bcb9899 2022-08-29 op # public domain.  The author hereby disclaims copyright to this source
  5 1bcb9899 2022-08-29 op # code.
  6 7d6d378a 2022-08-24 op 
  7 7d6d378a 2022-08-24 op use open ":std", ":encoding(UTF-8)";
  8 7d6d378a 2022-08-24 op use utf8;
  9 7d6d378a 2022-08-24 op use strict;
 10 7d6d378a 2022-08-24 op use warnings;
 11 7d6d378a 2022-08-24 op use v5.32;
 12 66e1cf97 2022-08-27 op use File::Temp qw(tempfile);
 13 7d6d378a 2022-08-24 op 
 14 054f3fd4 2022-08-25 op use OpenBSD::Pledge;
 15 054f3fd4 2022-08-25 op use OpenBSD::Unveil;
 16 054f3fd4 2022-08-25 op 
 17 04eab9af 2022-08-25 op use lib ".";
 18 f0fb0f08 2022-08-30 op use GotMArc qw(parse san urlencode initpage endpage thread_header);
 19 04eab9af 2022-08-25 op 
 20 7d6d378a 2022-08-24 op my $outdir = $ENV{'OUTDIR'};
 21 7d6d378a 2022-08-24 op die 'Set $OUTDIR' unless defined $outdir;
 22 7d6d378a 2022-08-24 op 
 23 054f3fd4 2022-08-25 op unveil("/usr/local/bin/mshow", "rx") or die "unveil mshow: $!";
 24 054f3fd4 2022-08-25 op unveil($outdir, "rwc") or die "unveil $outdir: $!";
 25 d3d07147 2022-08-30 op 
 26 d3d07147 2022-08-30 op # can't use tmppath because File::Temp checks whether /tmp exists.
 27 66e1cf97 2022-08-27 op unveil("/tmp", "rwc") or die "unveil /tmp: $!";
 28 66e1cf97 2022-08-27 op unveil(".", "r") or die "unveil .: $!";
 29 054f3fd4 2022-08-25 op 
 30 d3d07147 2022-08-30 op # fattr for File::Temp
 31 66e1cf97 2022-08-27 op pledge("stdio rpath wpath cpath proc exec fattr") or die "pledge: $!";
 32 66e1cf97 2022-08-27 op 
 33 7d6d378a 2022-08-24 op my $tid;
 34 7d6d378a 2022-08-24 op while (<>) {
 35 de557185 2022-08-26 op 	my ($level, $fname, $mid, $date, $from, $subj) = parse;
 36 7d6d378a 2022-08-24 op 
 37 7d6d378a 2022-08-24 op 	$tid = $mid if $level == 0;
 38 f3e4455d 2022-08-25 op 	die "unknown tid" unless defined $tid;
 39 7d6d378a 2022-08-24 op 
 40 c971fcee 2022-08-25 op 	my $dest = "$outdir/mail/$mid.html";
 41 c971fcee 2022-08-25 op 	next if -f $dest;
 42 c971fcee 2022-08-25 op 
 43 7d6d378a 2022-08-24 op 	open(my $fh, '>', "$dest") or die "can't open $dest: $!";
 44 7d6d378a 2022-08-24 op 
 45 04eab9af 2022-08-25 op 	initpage $fh, $subj;
 46 7d6d378a 2022-08-24 op 
 47 66e1cf97 2022-08-27 op 	my ($pfh, $parts) = tempfile "/tmp/gotmark.parts.XXXXXXXXXX";
 48 f1ceade9 2022-08-24 op 
 49 66e1cf97 2022-08-27 op 	$ENV{'PARTS_PATH'} = $parts;
 50 66e1cf97 2022-08-27 op 	$ENV{'MESSAGE_ID'} = $mid;
 51 7d6d378a 2022-08-24 op 	open(my $mshow, "-|", "mshow", "-nNA", "text/plain", $fname)
 52 7d6d378a 2022-08-24 op 	    or die "can't exec mshow: $!";
 53 7d6d378a 2022-08-24 op 
 54 84989e10 2022-08-24 op 	open(my $text, '>', "$outdir/text/$mid.txt")
 55 84989e10 2022-08-24 op 	    or die "can't open $outdir/text/$mid.txt: $!";
 56 84989e10 2022-08-24 op 
 57 9d8482ab 2022-08-27 op 	my @hdrs;
 58 7d6d378a 2022-08-24 op 	while (<$mshow>) {
 59 7d6d378a 2022-08-24 op 		last if /^$/;
 60 7d6d378a 2022-08-24 op 
 61 7d6d378a 2022-08-24 op 		# drop the (1 day ago) string
 62 6e04f5f4 2022-08-27 op 		s/ \(.*\)// if /^Date:/;
 63 6797be46 2022-08-27 op 		print $text $_;
 64 9d8482ab 2022-08-27 op 		push @hdrs, san($_);
 65 7d6d378a 2022-08-24 op 	}
 66 6797be46 2022-08-27 op 	say $text "";
 67 7d6d378a 2022-08-24 op 
 68 9d8482ab 2022-08-27 op 	thread_header $fh, $tid, $mid, \@hdrs;
 69 9d8482ab 2022-08-27 op 
 70 7d6d378a 2022-08-24 op 	print $fh "<pre>";
 71 5b01d758 2022-08-25 op 	while (<$mshow>) {
 72 5b01d758 2022-08-25 op 		print $text $_;
 73 5b01d758 2022-08-25 op 		print $fh san($_);
 74 5b01d758 2022-08-25 op 	}
 75 7d6d378a 2022-08-24 op 	print $fh "</pre>";
 76 7d6d378a 2022-08-24 op 
 77 f1ceade9 2022-08-24 op 	# generate the listing for the exported parts
 78 f1ceade9 2022-08-24 op 	my $part_seen = 0;
 79 66e1cf97 2022-08-27 op 	while (<$pfh>) {
 80 f1ceade9 2022-08-24 op 		if (!$part_seen) {
 81 f1ceade9 2022-08-24 op 			$part_seen = 1;
 82 f1ceade9 2022-08-24 op 			say $fh "<ul class='parts'>";
 83 f1ceade9 2022-08-24 op 		}
 84 f1ceade9 2022-08-24 op 		print $fh $_;
 85 f1ceade9 2022-08-24 op 	}
 86 f1ceade9 2022-08-24 op 	say $fh "</ul>" if $part_seen;
 87 f1ceade9 2022-08-24 op 
 88 f0fb0f08 2022-08-30 op 	my $encmid = urlencode $mid;
 89 f0fb0f08 2022-08-30 op 	my $enctid = urlencode $tid;
 90 f0fb0f08 2022-08-30 op 
 91 1fd8f454 2022-08-27 op 	print $fh "<nav>";
 92 f0fb0f08 2022-08-30 op 	print $fh "<a href='/text/$encmid.txt'>Raw body</a>";
 93 f0fb0f08 2022-08-30 op 	print $fh "<a href='/thread/$enctid.html#$encmid'>Thread</a>";
 94 1fd8f454 2022-08-27 op 	print $fh "</nav>\n";
 95 1fd8f454 2022-08-27 op 
 96 04eab9af 2022-08-25 op 	endpage $fh;
 97 7d6d378a 2022-08-24 op 
 98 84989e10 2022-08-24 op 	close($text);
 99 7d6d378a 2022-08-24 op 	close($mshow);
100 66e1cf97 2022-08-27 op 	close($pfh);
101 7d6d378a 2022-08-24 op 	close($fh);
102 f1ceade9 2022-08-24 op 
103 66e1cf97 2022-08-27 op 	unlink $parts;
104 66e1cf97 2022-08-27 op }