From 5d56bded66b312283459d568685e1f567a9060cd Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Mon, 29 Apr 2024 16:30:57 +0200
Subject: [PATCH] www: Include package date in versions listing

---
 www/index.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/www/index.pl b/www/index.pl
index 8edcd3d..71bcf31 100755
--- a/www/index.pl
+++ b/www/index.pl
@@ -219,7 +219,7 @@ sub framework_ {
 
     html_ lang => 'en', sub {
         head_ sub {
-            link_ rel => 'stylesheet', type => 'text/css', href => '/man.css?6';
+            link_ rel => 'stylesheet', type => 'text/css', href => '/man.css?7';
             title_ $o{title}.' - manned.org';
         };
         body_ sub {
@@ -1143,7 +1143,7 @@ TUWF::get qr{/ver(?:\.([a-fA-F0-9]{8}))?(?:\.([^/]+))?/([^/]+)\.([0-9a-zA-Z])},
     ($lang ||= '') =~ s/\..*//;
 
     my $l = tuwf->dbAlli('
-        SELECT p.system, p.name AS package, v.version, f.shorthash
+        SELECT p.system, p.name AS package, v.version, v.released, f.shorthash
           FROM files f
           JOIN package_versions v ON v.id = f.pkgver
           JOIN packages p ON p.id = v.package
@@ -1190,6 +1190,7 @@ TUWF::get qr{/ver(?:\.([a-fA-F0-9]{8}))?(?:\.([^/]+))?/([^/]+)\.([0-9a-zA-Z])},
                 thead_ sub { tr_ sub {
                     td_ 'Release' if sysbyid->{$sys{$sysname}[0]{system}}{release};
                     td_ 'Package';
+                    td_ 'Date';
                     td_ 'Hash';
                 }};
                 my $lastrel = '';
@@ -1200,6 +1201,7 @@ TUWF::get qr{/ver(?:\.([a-fA-F0-9]{8}))?(?:\.([^/]+))?/([^/]+)\.([0-9a-zA-Z])},
                     td_ sub {
                         a_ href => "/pkg/$sys->{short}/$_->{package}/$_->{version}", $_->{package}.'-'.$_->{version};
                     };
+                    td_ $_->{released};
                     td_ class => 'sh', sub {
                         my $hex = shorthash_to_hex $_->{shorthash};
                         txt_ $hex if $_->{shorthash} == $shorthash;