From bb06ade4941ab8a981256d06b1d1a36a5564c690 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 15 Feb 2023 00:25:14 +0100
Subject: [PATCH] perl: optional recommendations at ?at timestamp

---
 perl.plp | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/perl.plp b/perl.plp
index c227a9c..b1ea1c7 100644
--- a/perl.plp
+++ b/perl.plp
@@ -33,23 +33,26 @@ eval {
 	use Time::Seconds;
 
 	my $now = Time::Piece->new;
+	$now = $now->strptime($_, '%Y-%m-%d') for $get{at} // ();
+
 	my $coreeol = ($now - ONE_YEAR * 3)->strftime('%F');
 	my $vcore = first { $info->{$_}{release} ge $coreeol } sort keys %{$info};
-	say "<p>Core security support is provided for 3 years",
-		", so typical users should run at least $_."
-		for linkversion($vcore);
+	print "<p>Core security support is provided for 3 years";
+	print ", so typical users should run at least ", linkversion($_)
+		for $vcore // ();
+	say '.';
 
 	my $vendoreol = ($now - ONE_YEAR * 5)->strftime('%F');
 	my $vdebian = first {
 		$info->{$_}{release} ge $vendoreol && $info->{$_}{distro}{debian}
 	} sort keys %{$info};
 	say sprintf "Stable distributions such as Debian %s maintain %s+.",
-		$info->{$_}{distro}{debian}, linkversion($_) for $vdebian;
+		$info->{$_}{distro}{debian}, linkversion($_) for $vdebian // ();
 
 	my $nowcmp = $now->strftime('%F');
 	my $vdino = first { $info->{$_}{support} ge $nowcmp } sort keys %{$info};
 	say "Enterprise platforms retain versions up to $_."
-		for linkversion($vdino);
+		for map { linkversion($_) } $vdino // ();
 	return 1;
 } or Alert('Missing version recommendations', $@);
 say '</p>';
-- 
2.30.0