package GotMArc;

use strict;

use warnings;

use v5.32;

use Exporter;

our @ISA = qw(Exporter);

our @EXPORT_OK = qw(san parse initpage endpage index_header thread_header);

sub san {

my $str = shift;

$str =~ s/&/\&/g;

$str =~ s/</\&lt;/g;

$str =~ s/>/\&gt;/g;

return $str;

}

sub ssan {

my $str = shift;

$str =~ s/\s+/ /g;

$str =~ s/\s+$//;

return san($str);

}

sub mid2path {

my $mid = shift;

$mid =~ s,_,__,g;

$mid =~ s,/,_,g;

return $mid;

}

sub parse {

my ($indent, $fname, $mid, $date, $from, $subj) = m{

^([^-]*)- # the indent level

([^ ]+)\s # filename

<([^>]+)> # message id

(\d{4}-\d\d-\d\d[ ]\d\d:\d\d) # date

<([^>]+)> # from

(.*) # subject

}x or die "can't parse: $_";

my $level = length($indent);

$level = 10 if $indent =~ m/\.\.\d+\.\./;

$mid = mid2path($mid);

$from = ssan($from);

$subj = ssan($subj);

return ($level, $fname, $mid, $date, $from, $subj);

}

sub readall {

my $path = shift;

local $/ = undef;

open my $fh, "<", $path or die "can't open $path: $!";

<$fh>;

}

my $small_logo = readall "logo-small.html";

my $hdr = readall "head.html";

my $foot = readall "foot.html";

my $idxhdr = readall "index-header.html";

sub initpage {

my ($fh, $title) = @_;

say $fh $hdr =~ s/TITLE/$title/r;

}

sub endpage {

my $fh = shift;

say $fh $foot;

}

sub index_header {

my ($fh, $page, $subtitle) = @_;

my $html = $idxhdr =~ s/PAGE/$page/r;

$html =~ s/SUBTITLE/$subtitle/;

print $fh $html;

}

sub thread_header {

my ($fh, $tid, $mid, $e) = @_;

my @entries = @$e;

print $fh "<header class='mail-header'>\n";

print $fh "<p>";

print $fh $small_logo;

print $fh "<a href='/'>Index</a>";

print $fh " | <a href='/thread/$tid.html#$mid'>Thread</a>"

if defined $tid;

print $fh "</p>\n";

say $fh "<dl>";

foreach my $entry (@entries) {

my ($k, $v) = split /: /, $entry, 2;

chomp $v;

say $fh "<dt>$k:</dt><dd>$v</dd>";

}

say $fh "</dl>";

say $fh "<p>Download raw <a href='/text/$mid.txt'>body</a>.</p>"

if defined $mid;

say $fh "</header>\n";

};

1;