commit a53202dfdbe51b361a5ea636c8922515dbfeac8f
from: Omar Polo <op@omarpolo.com>
date: Thu Aug 25 09:50:47 2022 UTC

don't export the mbox

this wasn't a good idea as the mbox contains sensitive data (IP
addresses, hostnames and whatnot).  Not good to publish on the web.
Reminded by Stefan

commit - 4a89bbd3ec4dac66f4ff19965d322916beddd43b
commit + a53202dfdbe51b361a5ea636c8922515dbfeac8f
blob - 47c39ba03650d0909968bfda409d8a74188565a8
blob + fc1784b1d7f676e1a731ef2a022d48733c501ef8
--- Makefile
+++ Makefile
@@ -24,7 +24,6 @@ ${OUTDIR}/style.css: style.css
 
 dirs:
 	mkdir -p ${OUTDIR}/mail/
-	mkdir -p ${OUTDIR}/mbox/
 	mkdir -p ${OUTDIR}/parts/
 	mkdir -p ${OUTDIR}/text/
 	mkdir -p ${OUTDIR}/thread/
blob - 421cfa87498cc79ff8f05f528dd64aa77e2e67ff
blob + 4d2f55404988e48ece582b77dc77191866e0b4ee
--- mexp
+++ mexp
@@ -40,24 +40,6 @@ sub san {
 	return $str;
 }
 
-sub genmbox {
-	my ($fname, $mid) = @_;
-
-	open(my $fh, ">", "$outdir/mbox/$mid.mbox")
-	    or die "can't open $outdir/mbox/$mid.mbox: $!";
-
-	my $pid = fork();
-	die "fork: $!" unless defined $pid;
-	if ($pid == 0) {
-		open \*STDOUT, '>&', $fh;
-		exec('mexport', $fname)
-		    or die "exec mexport: $!";
-	}
-	die "waitpid: $!" if waitpid($pid, 0) == -1;
-	die "mexport failed with $?" if $? != 0;
-	# waitpid($pid, 0);
-}
-
 my $tid;
 while (<>) {
 	chomp;
@@ -83,8 +65,6 @@ while (<>) {
 	$tid = $mid if $level == 0;
 	die "unknown tid" unless defined $tid;
 
-	genmbox($fname, $mid);
-
 	open(my $fh, '>', "$dest") or die "can't open $dest: $!";
 
 	say $fh $hdr =~ s/TITLE/$subj/r;
@@ -122,8 +102,7 @@ while (<>) {
 		print $fh "<dd>", san($v), "</dd>";
 	}
 	print $fh "</dl>";
-	print $fh "<p>Download raw <a href='/mbox/$mid.mbox'>message</a>";
-	print $fh " or <a href='/text/$mid.txt'>body</a>.</p>";
+	print $fh "<p>Download raw <a href='/text/$mid.txt'>body</a>.</p>";
 	print $fh "</header>";
 
 	my $body = do {