1
#!/usr/bin/env perl
2

3
use open ":std", ":encoding(UTF-8)";
4
use utf8;
5
use strict;
6
use warnings;
7
use v5.32;
8
use File::Temp qw(tempfile);
9

10
use OpenBSD::Pledge;
11
use OpenBSD::Unveil;
12

13
use lib ".";
14
use GotMArc qw(parse san initpage endpage thread_header);
15

16
my $outdir = $ENV{'OUTDIR'};
17
die 'Set $OUTDIR' unless defined $outdir;
18

19
unveil("/usr/local/bin/mshow", "rx") or die "unveil mshow: $!";
20
unveil($outdir, "rwc") or die "unveil $outdir: $!";
21
unveil("/tmp", "rwc") or die "unveil /tmp: $!";
22
unveil(".", "r") or die "unveil .: $!";
23

24
# fattr because of File::Temp somehow.
25
pledge("stdio rpath wpath cpath proc exec fattr") or die "pledge: $!";
26

27
my $tid;
28
while (<>) {
29
	my ($level, $fname, $mid, $date, $from, $subj) = parse;
30

31
	$tid = $mid if $level == 0;
32
	die "unknown tid" unless defined $tid;
33

34
	my $dest = "$outdir/mail/$mid.html";
35
	next if -f $dest;
36

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

39
	initpage $fh, $subj;
40

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

43
	$ENV{'PARTS_PATH'} = $parts;
44
	$ENV{'MESSAGE_ID'} = $mid;
45
	open(my $mshow, "-|", "mshow", "-nNA", "text/plain", $fname)
46
	    or die "can't exec mshow: $!";
47

48
	open(my $text, '>', "$outdir/text/$mid.txt")
49
	    or die "can't open $outdir/text/$mid.txt: $!";
50

51
	my @hdrs;
52
	while (<$mshow>) {
53
		last if /^$/;
54

55
		# drop the (1 day ago) string
56
		s/ \(.*\)// if /^Date:/;
57
		print $text $_;
58
		push @hdrs, san($_);
59
	}
60
	say $text "";
61

62
	thread_header $fh, $tid, $mid, \@hdrs;
63

64
	print $fh "<pre>";
65
	while (<$mshow>) {
66
		print $text $_;
67
		print $fh san($_);
68
	}
69
	print $fh "</pre>";
70

71
	# generate the listing for the exported parts
72
	my $part_seen = 0;
73
	while (<$pfh>) {
74
		if (!$part_seen) {
75
			$part_seen = 1;
76
			say $fh "<ul class='parts'>";
77
		}
78
		print $fh $_;
79
	}
80
	say $fh "</ul>" if $part_seen;
81

82
	print $fh "<nav>";
83
	print $fh "<a href='/text/$mid.txt'>Raw body</a>";
84
	print $fh "<a href='/thread/$tid.html#$mid'>Thread</a>";
85
	print $fh "</nav>\n";
86

87
	endpage $fh;
88

89
	close($text);
90
	close($mshow);
91
	close($pfh);
92
	close($fh);
93

94
	unlink $parts;
95
}