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

Minor cleanup

Browse source
This commit is contained in:
Yorhel 2016-06-26 11:33:16 +02:00
parent f7f79ad80d
commit 0c6964d0e3
2 changed files with 1 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

1
schema.sql
View file

@ -1,7 +1,6 @@
-- TODO: "system" -> "repository"? -- TODO: "system" -> "repository"?
-- TODO: index of (reverse) man page references? -- TODO: index of (reverse) man page references?
-- TODO: Probably want an index on man(name). Or try swapping column order in the unique index.
-- TODO: Use some consistent naming of tables and columns -- TODO: Use some consistent naming of tables and columns

28
www/index.pl
View file

@ -42,21 +42,6 @@ TUWF::set(
); );
# TODO: Abstract this into the systems table?
$TUWF::OBJ->{pkglinks} = { };
# arch => sub { "http://www.archlinux.org/packages/$_[0]{category}/i686/$_[0]{name}/" },
# 'debian-squeeze' => sub { "http://packages.debian.org/squeeze/$_[0]{name}" },
# 'debian-wheezy' => sub { "http://packages.debian.org/wheezy/$_[0]{name}" },
# 'ubuntu-lucid' => sub { "http://packages.ubuntu.com/lucid/$_[0]{name}" },
# 'ubuntu-precise' => sub { "http://packages.ubuntu.com/precise/$_[0]{name}" },
# 'ubuntu-quantal' => sub { "http://packages.ubuntu.com/quantal/$_[0]{name}" },
# 'ubuntu-raring' => sub { "http://packages.ubuntu.com/raring/$_[0]{name}" },
# 'ubuntu-saucy' => sub { "http://packages.ubuntu.com/saucy/$_[0]{name}" },
# 'ubuntu-trusty' => sub { "http://packages.ubuntu.com/trusty/$_[0]{name}" },
# 'ubuntu-utopic' => sub { "http://packages.ubuntu.com/utopic/$_[0]{name}" },
#};
TUWF::register( TUWF::register(
qr// => \&home, qr// => \&home,
qr{info/about} => \&about, qr{info/about} => \&about,
@ -378,17 +363,6 @@ sub browsepkg {
$self->htmlHeader(title => $title); $self->htmlHeader(title => $title);
h1 $title; h1 $title;
my $lnk = $self->{pkglinks}{$sys->{short}};
if($lnk) {
$lnk = $lnk->($sel);
(my $domain = $lnk) =~ s{^https?://(?:[^/]+\.)?([^/\.]+\.[^/\.]+)/.+}{$1};
p;
br;
a href => $lnk, 'Package information';
i class => 'grayedout', " [$domain]";
end;
}
# TODO: Link back to the system browsing page # TODO: Link back to the system browsing page
h2 'Versions'; h2 'Versions';
@ -630,7 +604,7 @@ sub htmlFooter {
lit 'All manual pages are copyrighted by their respective authors. lit 'All manual pages are copyrighted by their respective authors.
| <a href="/info/about">About manned.org</a> | <a href="/info/about">About manned.org</a>
| <a href="mailto:contact@manned.org">Contact</a> | <a href="mailto:contact@manned.org">Contact</a>
| <a href="http://g.blicky.net/manned.git/">Source</a>'; | <a href="https://g.blicky.net/manned.git/">Source</a>';
end; end;
if($o{js}) { if($o{js}) {
script type => 'text/javascript'; script type => 'text/javascript';