Some new releases and fixes

This commit is contained in:
Yorhel 2019-03-21 08:39:38 +01:00
parent 2192e68775
commit 5c85a7d32f
15 changed files with 132 additions and 85 deletions

View file

@ -12,6 +12,8 @@ BEGIN { ($ROOT = abs_path $0) =~ s{index\.cgi$}{}; }
my @changes = (
[ '2019-02-04', '/ncdu', 'ncdu 1.14 released' ],
[ '2018-02-23', '/nginx-confgen', 'nginx-confgen 1.2 released' ],
[ '2018-02-18', '/tuwf', 'TUWF 1.2 released' ],
[ '2018-01-29', '/ncdu', 'ncdu 1.13 released' ],
[ '2018-01-24', '/nginx-confgen', 'nginx-confgen 1.1 released' ],
@ -118,7 +120,7 @@ TUWF::register(
qr{nginx-confgen/man} => sub { podpage(shift, 'nginx-confgen-man', 'nginx-confgen', 'man', 'The nginx-confgen(1) Man Page', 1) },
qr{nginx-confgen/changes} => sub { changelog(shift, 'nginx-confgen-changelog', undef, 'nginx-confgen', 'changes', 'nginx-confgen Changelog', 1) },
qr{tuwf} => sub { podpage(shift, 'tuwf', 'tuwf', '', 'The Ultimate Website Framework') },
qr{tuwf/man(?:/(db|intro|misc|request|response|xml))?} => \&tuwfmanual,
qr{tuwf/man(?:/(db|intro|misc|request|response|validate|xml))?} => \&tuwfmanual,
qr{tuwf/changes} => sub { changelog(shift, 'tuwf-changelog', 'TUWF', 'tuwf', 'changes', 'TUWF Changelog') },
qr{ylib} => sub { podpage(shift, 'ylib/README.pod', 'ylib', '', 'Ylib') },
qr{yxml} => sub { podpage(shift, 'yxml', 'yxml', '', 'Yxml - A small, fast and correct* XML parser') },
@ -478,8 +480,9 @@ sub htmlHeader {
div class => 'notes';
txt 'Yoran Heling'; br;
a href => 'mailto:projects@yorhel.nl', 'projects@yorhel.nl';
br; a href => 'https://yorhel.nl', 'home';
txt ' - '; a href => 'http://g.blicky.net', 'git repos';
br; a href => 'https://yorhel.nl/', 'home';
txt ' - '; a href => 'https://g.blicky.net/', 'git';
txt ' - '; a href => 'https://niu.moe/@ayo', '@ayo';
br; b '= donate =';
a href => 'https://www.paypal.com/cgi-bin/webscr?cmd=_donations&business=BBF8LGT2LLNFN&lc=US&currency_code=EUR&bn=PP%2dDonationsBF%3abtn_donate_SM%2egif%3aNonHosted', 'paypal';
br; b '= pgp =';
@ -511,7 +514,7 @@ sub htmlMenu {
h1 class => 'title', "~ \u$o{page} ~" if $o{spec}{$o{page}};
my $m = sub {
li;
my $s = ($_[0] =~ m{^/([^/]+)} && $o{spec}{$1} && $o{page} ne $1) || $_[0] =~ m{^http://};
my $s = ($_[0] =~ m{^/([^/]+)} && $o{spec}{$1} && $o{page} ne $1) || $_[0] =~ m{^https?://};
my @c = ($s?'special':(), $_[2]?'menusel':(), $_[4]?'tiny':());
a href => $_[0], @c?(class => join ' ',@c):(), $_[1];
if($_[3]) {
@ -556,9 +559,11 @@ sub htmlMenu {
$m->('/tuwf/man/misc', '::Misc', $o{sec} eq 'man' && $o{sec2} eq 'misc');
$m->('/tuwf/man/request', '::Request', $o{sec} eq 'man' && $o{sec2} eq 'request');
$m->('/tuwf/man/response', '::Response', $o{sec} eq 'man' && $o{sec2} eq 'response');
$m->('/tuwf/man/validate', '::Validate', $o{sec} eq 'man' && $o{sec2} eq 'validate');
$m->('/tuwf/man/xml', '::XML', $o{sec} eq 'man' && $o{sec2} eq 'xml');
});
$m->('/tuwf/changes', 'Changelog', $o{sec} eq 'changes');
$m->('https://code.blicky.net/yorhel/tuwf/issues', 'Issues');
} elsif($o{page} eq 'yxml') {
$m->('/yxml', 'Info', !$o{sec});
$m->('/yxml/man', 'Manual', $o{sec} eq 'man');
@ -567,6 +572,7 @@ sub htmlMenu {
$m->('/nginx-confgen', 'Info', !$o{sec});
$m->('/nginx-confgen/man', 'Manual', $o{sec} eq 'man');
$m->('/nginx-confgen/changes', 'Changelog', $o{sec} eq 'changes');
$m->('https://code.blicky.net/yorhel/nginx-confgen/issues', 'Issues');
} else {
$m->('/', 'Home', !$o{page});
$m->('/ncdu', 'Ncdu ');