1
#!/usr/bin/env perl
2
#
3
# mexp was written by Omar Polo <op@openbsd.org> and is placed in the
4
# public domain.  The author hereby disclaims copyright to this source
5
# code.
6

7
use open ":std", ":encoding(UTF-8)";
8
use utf8;
9
use strict;
10
use warnings;
11
use v5.32;
12
use File::Temp qw(tempfile);
13

14
use OpenBSD::Pledge;
15
use OpenBSD::Unveil;
16

17
use lib ".";
18
use GotMArc qw(parse san urlencode initpage endpage thread_header);
19

20
my $outdir = $ENV{'OUTDIR'};
21
die 'Set $OUTDIR' unless defined $outdir;
22

23
unveil("/usr/local/bin/mshow", "rx") or die "unveil mshow: $!";
24
unveil($outdir, "rwc") or die "unveil $outdir: $!";
25

26
# can't use tmppath because File::Temp checks whether /tmp exists.
27
unveil("/tmp", "rwc") or die "unveil /tmp: $!";
28
unveil(".", "r") or die "unveil .: $!";
29

30
# fattr for File::Temp
31
pledge("stdio rpath wpath cpath proc exec fattr") or die "pledge: $!";
32

33
my $tid;
34
while (<>) {
35
	my ($level, $fname, $mid, $date, $from, $subj) = parse;
36

37
	$tid = $mid if $level == 0;
38
	die "unknown tid" unless defined $tid;
39

40
	my $dest = "$outdir/mail/$mid.html";
41
	next if -f $dest;
42

43
	open(my $fh, '>', "$dest") or die "can't open $dest: $!";
44

45
	initpage $fh, $subj;
46

47
	my ($pfh, $parts) = tempfile "/tmp/gotmark.parts.XXXXXXXXXX";
48

49
	$ENV{'PARTS_PATH'} = $parts;
50
	$ENV{'MESSAGE_ID'} = $mid;
51
	open(my $mshow, "-|", "mshow", "-nNA", "text/plain", $fname)
52
	    or die "can't exec mshow: $!";
53

54
	open(my $text, '>', "$outdir/text/$mid.txt")
55
	    or die "can't open $outdir/text/$mid.txt: $!";
56

57
	my @hdrs;
58
	while (<$mshow>) {
59
		last if /^$/;
60

61
		# drop the (1 day ago) string
62
		s/ \(.*\)// if /^Date:/;
63
		print $text $_;
64
		push @hdrs, san($_);
65
	}
66
	say $text "";
67

68
	thread_header $fh, $tid, $mid, \@hdrs;
69

70
	print $fh "<pre>";
71
	while (<$mshow>) {
72
		print $text $_;
73
		print $fh san($_);
74
	}
75
	print $fh "</pre>";
76

77
	# generate the listing for the exported parts
78
	my $part_seen = 0;
79
	while (<$pfh>) {
80
		if (!$part_seen) {
81
			$part_seen = 1;
82
			say $fh "<ul class='parts'>";
83
		}
84
		print $fh $_;
85
	}
86
	say $fh "</ul>" if $part_seen;
87

88
	my $encmid = urlencode $mid;
89
	my $enctid = urlencode $tid;
90

91
	print $fh "<nav>";
92
	print $fh "<a href='/text/$encmid.txt'>Raw body</a>";
93
	print $fh "<a href='/thread/$enctid.html#$encmid'>Thread</a>";
94
	print $fh "</nav>\n";
95

96
	endpage $fh;
97

98
	close($text);
99
	close($mshow);
100
	close($pfh);
101
	close($fh);
102

103
	unlink $parts;
104
}