From df484fd9b6640639c3a6098814b41628d02e5d54 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Thu, 6 May 2021 18:21:15 +0200
Subject: Add perlmonks, irc nodes

---
 run/p5p | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'run/p5p')

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
 }
 
-- 
cgit v1.2.3