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

Use issue tracker for ncdu + fixed a few minor bugs

Browse source
This commit is contained in:
Yorhel 2012-03-24 14:12:15 +01:00
parent 605b0643d3
commit 05c36a1aef
3 changed files with 25 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

17
index.cgi
View file

@ -12,6 +12,7 @@ BEGIN { ($ROOT = abs_path $0) =~ s{index\.cgi$}{}; }
my @changes = (
[ '2012-03-24', '/ncdu/issue', 'Moved issue tracker from sourceforge to this site' ],
[ '2012-03-17', '/ncdc/issue', 'Wrote a small issue tracker for ncdc' ],
[ '2012-03-14', '/ncdc', 'ncdc 1.9 released.' ],
[ '2012-02-15', '/doc/commvis', 'Added an article on my new communication system.' ],
@ -75,10 +76,10 @@ TUWF::register(
qr{dump/grenamr} => sub { podpage(shift, 'dump-grenamr', 'dump', 'grenamr', 'GTK+ Mass File Renamer') },
qr{dump/nccolour} => sub { podpage(shift, 'dump-nccolour', 'dump', 'nccolour', 'Colours in NCurses') },
qr{feed\.atom} => \&atom,
qr{(ncdc)/issue} => \&issue_list,
qr{(ncdc)/issue/post} => \&issue_post,
qr{(ncdc)/issue/new} => \&issue_new,
qr{(ncdc)/issue/([1-9][0-9]*)} => \&issue_item,
qr{(ncdc|ncdu)/issue} => \&issue_list,
qr{(ncdc|ncdu)/issue/post} => \&issue_post,
qr{(ncdc|ncdu)/issue/new} => \&issue_new,
qr{(ncdc|ncdu)/issue/([1-9][0-9]*)} => \&issue_item,
);
TUWF::set(
@ -213,7 +214,7 @@ sub _issue_init {
sub issue_list {
my($s, $p) = @_;
my $is = _issue_init(@_);
$s->htmlHeader(title => 'Ncdc Issue tracker', page => $p, sec => 'issue');
$s->htmlHeader(title => "\u$p Issue tracker", page => $p, sec => 'issue');
br; a href => "/$p/issue/new", 'Report new issue'; br; br;
$is->htmlListing((scalar $is->dbListing()), sub { "/$p/issue/".shift });
br; a href => "/$p/issue/new", 'Report new issue'; br; br;
@ -224,7 +225,7 @@ sub issue_list {
sub issue_new {
my($s, $p) = @_;
my $is = _issue_init(@_);
$s->htmlHeader(title => 'Ncdc: Report new issue', page => $p, sec => 'issue');
$s->htmlHeader(title => "\u$p: Report new issue", page => $p, sec => 'issue');
br; a href => "/$p/issue", 'Back to the issue index'; br; br;
$is->htmlForm(undef, "/$p/issue/post");
$s->htmlFooter;
@ -255,7 +256,7 @@ sub issue_item {
my $item = $is->dbItem($i);
return $s->resNotFound if !@$item;
my $last = $item->[$#$item];
$s->htmlHeader(title => 'Ncdc: '.$last->{summary}, page => $p, sec => 'issue');
$s->htmlHeader(title => "\u$p: $last->{summary}", page => $p, sec => 'issue');
br; a href => "/$p/issue", 'Back to the issue index'; br; br;
$is->htmlItem($item);
$is->htmlForm($last, "/$p/issue/post") if !$last->{closed};
@ -403,7 +404,7 @@ sub htmlMenu {
$m->('/ncdu/man', 'Manual', $o{sec} eq 'man');
$m->('/ncdu/changes', 'Changelog', $o{sec} eq 'changes');
$m->('/ncdu/scr', 'Screenshots', $o{sec} eq 'scr');
$m->('http://sourceforge.net/tracker/?group_id=200175', 'Bug tracker ');
$m->('/ncdu/issue', 'Issue tracker', $o{sec} eq 'issue');
});
$m->('/ncdc', 'Ncdc', $o{page} eq 'ncdc', sub {
$m->('/ncdc', 'Info', !$o{sec});