vndb/manned
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

www: Include package date in versions listing

Browse source
This commit is contained in:
Yorhel 2024-04-29 16:30:57 +02:00
parent 18b9666e32
commit 5d56bded66
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
www/index.pl
View file

@ -219,7 +219,7 @@ sub framework_ {
html_ lang => 'en', sub { html_ lang => 'en', sub {
head_ 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'; title_ $o{title}.' - manned.org';
}; };
body_ sub { body_ sub {
@ -1143,7 +1143,7 @@ TUWF::get qr{/ver(?:\.([a-fA-F0-9]{8}))?(?:\.([^/]+))?/([^/]+)\.([0-9a-zA-Z])},
($lang ||= '') =~ s/\..*//; ($lang ||= '') =~ s/\..*//;
my $l = tuwf->dbAlli(' 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 FROM files f
JOIN package_versions v ON v.id = f.pkgver JOIN package_versions v ON v.id = f.pkgver
JOIN packages p ON p.id = v.package 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 { thead_ sub { tr_ sub {
td_ 'Release' if sysbyid->{$sys{$sysname}[0]{system}}{release}; td_ 'Release' if sysbyid->{$sys{$sysname}[0]{system}}{release};
td_ 'Package'; td_ 'Package';
td_ 'Date';
td_ 'Hash'; td_ 'Hash';
}}; }};
my $lastrel = ''; my $lastrel = '';
@ -1200,6 +1201,7 @@ TUWF::get qr{/ver(?:\.([a-fA-F0-9]{8}))?(?:\.([^/]+))?/([^/]+)\.([0-9a-zA-Z])},
td_ sub { td_ sub {
a_ href => "/pkg/$sys->{short}/$_->{package}/$_->{version}", $_->{package}.'-'.$_->{version}; a_ href => "/pkg/$sys->{short}/$_->{package}/$_->{version}", $_->{package}.'-'.$_->{version};
}; };
td_ $_->{released};
td_ class => 'sh', sub { td_ class => 'sh', sub {
my $hex = shorthash_to_hex $_->{shorthash}; my $hex = shorthash_to_hex $_->{shorthash};
txt_ $hex if $_->{shorthash} == $shorthash; txt_ $hex if $_->{shorthash} == $shorthash;