commit - 9301f57b20b07db3d659f81c85af18d3ded31438
commit + ed91b1e1bc55e5fb0e3cfabadc0d8d90d696fa79
blob - 0fe0a0f5dfb51bcd82a1f0fde0cea7aaecf82cc7
blob + c1bbd22f8fa8221f8b916581587c019662354c13
--- Makefile
+++ Makefile
dirs:
mkdir -p ${OUTDIR}/thread/
+ mkdir -p ${OUTDIR}/mbox/
assets: dirs got.png style.css
cp got.png ${OUTDIR}/got@2x.png
blob - d860664bf2ff908b8879620c2778a0acff41ad24
blob + 36fb387384baf992962694d9168505bc1f28231d
--- mexp
+++ mexp
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;
$tid = $mid if $level == 0;
+ genmbox($fname, $mid);
+
my $dest = "$outdir/$mid.html";
open(my $fh, '>', "$dest") or die "can't open $dest: $!";
print $fh "<dt>", san($h), ":</dt>";
print $fh "<dd>", san($v), "</dd>";
}
- print $fh "</dl></header>";
+ print $fh "</dl>";
+ print $fh "<p><a href='/mbox/$mid.mbox'>Raw message</a></p>";
+ print $fh "</header>";
my $body = do {
local $/ = undef;