Blame
Date:
Sat Aug 27 22:21:11 2022 UTC
Message:
drop trailing space on Date header values
01
2022-08-24
op
#!/usr/bin/env perl
02
2022-08-24
op
03
2022-08-24
op
use open ":std", ":encoding(UTF-8)";
04
2022-08-24
op
use utf8;
05
2022-08-24
op
use strict;
06
2022-08-24
op
use warnings;
07
2022-08-24
op
use v5.32;
08
2022-08-27
op
use File::Temp qw(tempfile);
09
2022-08-24
op
10
2022-08-25
op
use OpenBSD::Pledge;
11
2022-08-25
op
use OpenBSD::Unveil;
12
2022-08-25
op
13
2022-08-25
op
use lib ".";
14
2022-08-27
op
use GotMArc qw(parse san initpage endpage thread_header);
15
2022-08-25
op
16
2022-08-24
op
my $outdir = $ENV{'OUTDIR'};
17
2022-08-24
op
die 'Set $OUTDIR' unless defined $outdir;
18
2022-08-24
op
19
2022-08-25
op
unveil("/usr/local/bin/mshow", "rx") or die "unveil mshow: $!";
20
2022-08-25
op
unveil($outdir, "rwc") or die "unveil $outdir: $!";
21
2022-08-27
op
unveil("/tmp", "rwc") or die "unveil /tmp: $!";
22
2022-08-27
op
unveil(".", "r") or die "unveil .: $!";
23
2022-08-25
op
24
2022-08-27
op
# fattr because of File::Temp somehow.
25
2022-08-27
op
pledge("stdio rpath wpath cpath proc exec fattr") or die "pledge: $!";
26
2022-08-27
op
27
2022-08-24
op
my $tid;
28
2022-08-24
op
while (<>) {
29
2022-08-26
op
my ($level, $fname, $mid, $date, $from, $subj) = parse;
30
2022-08-24
op
31
2022-08-24
op
$tid = $mid if $level == 0;
32
2022-08-25
op
die "unknown tid" unless defined $tid;
33
2022-08-24
op
34
2022-08-25
op
my $dest = "$outdir/mail/$mid.html";
35
2022-08-25
op
next if -f $dest;
36
2022-08-25
op
37
2022-08-24
op
open(my $fh, '>', "$dest") or die "can't open $dest: $!";
38
2022-08-24
op
39
2022-08-25
op
initpage $fh, $subj;
40
2022-08-24
op
41
2022-08-27
op
my ($pfh, $parts) = tempfile "/tmp/gotmark.parts.XXXXXXXXXX";
42
2022-08-24
op
43
2022-08-27
op
$ENV{'PARTS_PATH'} = $parts;
44
2022-08-27
op
$ENV{'MESSAGE_ID'} = $mid;
45
2022-08-24
op
open(my $mshow, "-|", "mshow", "-nNA", "text/plain", $fname)
46
2022-08-24
op
or die "can't exec mshow: $!";
47
2022-08-24
op
48
2022-08-24
op
open(my $text, '>', "$outdir/text/$mid.txt")
49
2022-08-24
op
or die "can't open $outdir/text/$mid.txt: $!";
50
2022-08-24
op
51
2022-08-27
op
my @hdrs;
52
2022-08-24
op
while (<$mshow>) {
53
2022-08-24
op
last if /^$/;
54
2022-08-24
op
55
2022-08-24
op
# drop the (1 day ago) string
56
2022-08-27
op
s/ \(.*\)// if /^Date:/;
57
2022-08-27
op
print $text $_;
58
2022-08-27
op
push @hdrs, san($_);
59
2022-08-24
op
}
60
2022-08-27
op
say $text "";
61
2022-08-24
op
62
2022-08-27
op
thread_header $fh, $tid, $mid, \@hdrs;
63
2022-08-27
op
64
2022-08-24
op
print $fh "<pre>";
65
2022-08-25
op
while (<$mshow>) {
66
2022-08-25
op
print $text $_;
67
2022-08-25
op
print $fh san($_);
68
2022-08-25
op
}
69
2022-08-24
op
print $fh "</pre>";
70
2022-08-24
op
71
2022-08-24
op
# generate the listing for the exported parts
72
2022-08-24
op
my $part_seen = 0;
73
2022-08-27
op
while (<$pfh>) {
74
2022-08-24
op
if (!$part_seen) {
75
2022-08-24
op
$part_seen = 1;
76
2022-08-24
op
say $fh "<ul class='parts'>";
77
2022-08-24
op
}
78
2022-08-24
op
print $fh $_;
79
2022-08-24
op
}
80
2022-08-24
op
say $fh "</ul>" if $part_seen;
81
2022-08-24
op
82
2022-08-27
op
print $fh "<nav>";
83
2022-08-27
op
print $fh "<a href='/text/$mid.txt'>Raw body</a>";
84
2022-08-27
op
print $fh "<a href='/thread/$tid.html#$mid'>Thread</a>";
85
2022-08-27
op
print $fh "</nav>\n";
86
2022-08-27
op
87
2022-08-25
op
endpage $fh;
88
2022-08-24
op
89
2022-08-24
op
close($text);
90
2022-08-24
op
close($mshow);
91
2022-08-27
op
close($pfh);
92
2022-08-24
op
close($fh);
93
2022-08-24
op
94
2022-08-27
op
unlink $parts;
95
2022-08-27
op
}
Omar Polo