1 7d6d378a 2022-08-24 op #!/usr/bin/env perl
3 7d6d378a 2022-08-24 op use open ":std", ":encoding(UTF-8)";
10 2064ca3f 2022-08-25 op use GotMArc qw($logo san mid2path initpage endpage);
12 7d6d378a 2022-08-24 op my $outdir = $ENV{'OUTDIR'};
13 7d6d378a 2022-08-24 op die 'Set $OUTDIR' unless defined $outdir;
14 7d6d378a 2022-08-24 op mkdir $outdir;
16 28ebc168 2022-08-24 op my $tfh; # thread file handle
17 28ebc168 2022-08-24 op my $pfh; # page file handle
18 28ebc168 2022-08-24 op my $page = -1;
19 584d65d8 2022-08-24 op my $threads_seen = 0;
20 584d65d8 2022-08-24 op my $last_level = 0;
21 28ebc168 2022-08-24 op my $entries = 0;
22 28ebc168 2022-08-24 op my $entries_per_page = 100;
24 28ebc168 2022-08-24 op sub pagename {
25 28ebc168 2022-08-24 op my $i = shift;
26 28ebc168 2022-08-24 op return $i == 0 && "index.html" || "$i.html";
29 28ebc168 2022-08-24 op sub nextfile {
31 28ebc168 2022-08-24 op close($pfh) if defined $pfh;
33 28ebc168 2022-08-24 op my $path = pagename($page);
34 28ebc168 2022-08-24 op open($pfh, '>', $path)
35 28ebc168 2022-08-24 op or die "can't open $path: $!";
37 28ebc168 2022-08-24 op my $title = "Game of Trees Mail Archive";
38 28ebc168 2022-08-24 op $title .= " | page $page" if $page != 0;
39 28ebc168 2022-08-24 op initpage($pfh, $title);
41 28ebc168 2022-08-24 op my $hdr = <<EOF;
42 28ebc168 2022-08-24 op <header class='index-header'>
43 28ebc168 2022-08-24 op <a href="https://gameoftrees.org" target="_blank">
44 28ebc168 2022-08-24 op <img src='/got.png'
45 28ebc168 2022-08-24 op srcset='/got.png, /got@2x.png 2x'
46 28ebc168 2022-08-24 op alt='"GOT" where the "O" is a cute smiling sun.' />
48 28ebc168 2022-08-24 op <h1>$title</h1>
52 28ebc168 2022-08-24 op say $pfh $hdr;
55 28ebc168 2022-08-24 op sub fixfiles {
58 28ebc168 2022-08-24 op my ($first, $last) = (pagename(0), pagename($page));
60 28ebc168 2022-08-24 op for (my $i = 0; $i <= $page; $i++) {
61 28ebc168 2022-08-24 op my $path = pagename($i);
63 e773a9f0 2022-08-24 op open(my $pfh, '>>', $path)
64 e773a9f0 2022-08-24 op or die "can't open $path for append: $!";
66 28ebc168 2022-08-24 op if ($page > 1) {
67 28ebc168 2022-08-24 op my ($next, $prev) = (pagename($i+1), pagename($i-1));
69 e773a9f0 2022-08-24 op say $pfh "<nav class='next-prev'><!-- $pfh -->";
70 e773a9f0 2022-08-24 op say $pfh "<a href='$first'>First</a>" if $i > 1;
71 e773a9f0 2022-08-24 op say $pfh "<a href='$prev'>Prev</a>" if $i > 0;
72 e773a9f0 2022-08-24 op say $pfh "<a href='$next'>Next</a>" if $i < $page;
73 e773a9f0 2022-08-24 op say $pfh "<a href='$last'>Last</a>" if $i < $page - 1;
74 e773a9f0 2022-08-24 op say $pfh "</nav>";
77 e773a9f0 2022-08-24 op say $pfh "</main>";
78 e773a9f0 2022-08-24 op endpage($pfh);
80 28ebc168 2022-08-24 op rename $path, "$outdir/$path";
84 7d6d378a 2022-08-24 op sub nextthread {
85 7d6d378a 2022-08-24 op endthread() if defined($tfh);
86 7d6d378a 2022-08-24 op my ($mid, $subj) = @_;
87 7d6d378a 2022-08-24 op my $dest = "$outdir/thread/$mid.html";
88 7d6d378a 2022-08-24 op open($tfh, '>', $dest) or die "can't open $dest: $!";
89 7d6d378a 2022-08-24 op initpage($tfh, $subj);
91 7d6d378a 2022-08-24 op print $tfh "<header class='mail-header'>";
92 7d6d378a 2022-08-24 op print $tfh "<p>";
93 7d6d378a 2022-08-24 op print $tfh $logo;
94 4a89bbd3 2022-08-25 op print $tfh "<a href='/'>Index</a>";
95 7d6d378a 2022-08-24 op print $tfh "</p>";
96 584d65d8 2022-08-24 op print $tfh "<dl><dt>Thread:</dt><dd>$subj</dd></dl>";
97 7d6d378a 2022-08-24 op print $tfh "</header>\n";
98 584d65d8 2022-08-24 op # print $tfh "<div class='thread'><ul class='mails'>\n";
101 7d6d378a 2022-08-24 op sub endthread {
102 584d65d8 2022-08-24 op say $tfh "</ul></li>" x $last_level;
103 584d65d8 2022-08-24 op say $tfh "</ul></div>\n";
104 7d6d378a 2022-08-24 op endpage($tfh);
107 584d65d8 2022-08-24 op $last_level = 0;
110 7d6d378a 2022-08-24 op sub entry_raw {
111 584d65d8 2022-08-24 op my ($fh, $sep, $mid, $level, $date, $from, $subj) = @_;
112 584d65d8 2022-08-24 op my $new_thread = $level == 0;
114 584d65d8 2022-08-24 op say $fh "</ul>\n</li>" x ($last_level - $level) if $last_level > $level;
115 584d65d8 2022-08-24 op say $fh "</ul>\n</div>$sep" if $threads_seen && $new_thread;
117 584d65d8 2022-08-24 op if ($new_thread) {
118 28ebc168 2022-08-24 op # don't break threads over multiple pages!
119 28ebc168 2022-08-24 op nextfile if $entries >= $entries_per_page && $fh != $tfh;
121 584d65d8 2022-08-24 op nextthread($mid, $subj);
122 584d65d8 2022-08-24 op say $fh "<div class='thread'>";
125 584d65d8 2022-08-24 op if ($last_level < $level) {
126 584d65d8 2022-08-24 op say $fh "<li>\n<ul>";
127 584d65d8 2022-08-24 op } elsif ($last_level == 0) {
128 584d65d8 2022-08-24 op say $fh "<ul class='mails'>";
131 584d65d8 2022-08-24 op print $fh "<li id='$mid' class='mail'>";
132 7d6d378a 2022-08-24 op print $fh "<p class='mail-meta'>";
133 7d6d378a 2022-08-24 op print $fh "<time>$date</time> ";
134 7d6d378a 2022-08-24 op print $fh "<span class='from'>$from</span>";
135 7d6d378a 2022-08-24 op print $fh "<span class='colon'>:</span>";
136 7d6d378a 2022-08-24 op if ($fh != $tfh && $level == 0) {
137 7d6d378a 2022-08-24 op print $fh " (<a href='/thread/$mid.html'>thread</a>)";
139 7d6d378a 2022-08-24 op print $fh "</p>";
140 7d6d378a 2022-08-24 op print $fh "<p class='subject'>";
141 9be16529 2022-08-24 op print $fh "<a href='/mail/$mid.html'>$subj</a>";
142 7d6d378a 2022-08-24 op print $fh "</p>";
143 584d65d8 2022-08-24 op print $fh "</li>\n";
148 28ebc168 2022-08-24 op entry_raw($pfh, "<hr />", @_);
149 584d65d8 2022-08-24 op entry_raw($tfh, "", @_);
156 7d6d378a 2022-08-24 op m/^[^ ]+ <([^>]+)> (.+)(\d{4}-\d{2}-\d{2} \d{2}:\d{2}) <([^>]+)> (.*)/;
157 7d6d378a 2022-08-24 op die "woops; $_\n" unless defined $1;
159 7d6d378a 2022-08-24 op my ($mid, $indent, $date, $from, $subj) = ($1, $2, $3, $4, $5);
160 7d6d378a 2022-08-24 op $from =~ s/\s+$//;
161 7d6d378a 2022-08-24 op $from = san($from);
162 7d6d378a 2022-08-24 op $subj = san($subj);
164 7d6d378a 2022-08-24 op my $level = length($indent) - 1;
165 7d6d378a 2022-08-24 op $level = 10 if $indent =~ m/\.\.\d{2}\.\./;
167 2064ca3f 2022-08-25 op $mid = mid2path($mid);
169 7d6d378a 2022-08-24 op $subj =~ s/\s+/ /g;
170 7d6d378a 2022-08-24 op $subj =~ s/\s+$//g;
172 7d6d378a 2022-08-24 op entry($mid, $level, $date, $from, $subj);
173 584d65d8 2022-08-24 op $last_level = $level;
174 584d65d8 2022-08-24 op $threads_seen = 1;
177 7d6d378a 2022-08-24 op if ($threads_seen) {
178 28ebc168 2022-08-24 op say $pfh "</ul></li>" x $last_level;
179 28ebc168 2022-08-24 op say $pfh "</ul></div>";