diff options
Diffstat (limited to 'run/p5p')
| -rw-r--r-- | run/p5p | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -17,14 +17,14 @@ my %s = %{$nntp->xhdr('Subject', [$last-10, $last])}; for ((reverse sort keys %d)[0..4]) { $_ = encode_entities($_) for ($d{$_}, $f{$_}, $s{_}); $f{$_} =~ s,@[^.]*\.,@<i>hidden</i>.,; + my $l = "https://www.nntp.perl.org/group/perl.perl5.porters/0/0/msg$_.html"; print <<HTML; <p> -<div style="font-size: 80%; margin: 0;"> -<span class="date" style="line-height: 1;">Date: $d{$_}</span> -<br/><span class="from">From: $f{$_}</span> +<div class="entry"> +<div class="date">Date: $d{$_}</div> +<div class="from">From: $f{$_}</div> +<div class="subject"><a href="$l">$s{$_}</a></div> </div> -<span class="subject">Subject: <a href="https://www.nntp.perl.org/group/perl.perl5.porters/0/0/msg$_.html">$s{$_}</a></span> -</p> HTML } |