Add perlmonks, irc nodes

1 files changed, 5 insertions, 5 deletions

diff --git a/run/p5p b/run/p5p
index ebb0c62..e343723 100644
--- a/run/p5p
+++ b/run/p5p
@@ -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
 }