commit - 4a89bbd3ec4dac66f4ff19965d322916beddd43b
commit + a53202dfdbe51b361a5ea636c8922515dbfeac8f
blob - 47c39ba03650d0909968bfda409d8a74188565a8
blob + fc1784b1d7f676e1a731ef2a022d48733c501ef8
--- Makefile
+++ Makefile
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
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;
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;
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 {