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

Add source page file name + fix handling of some odd suffixes

Browse source
This commit is contained in:
Yorhel 2015-12-19 11:46:10 +01:00
parent 2da67d585c
commit 8808b538f5
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
www/index.pl
View file

@ -572,6 +572,7 @@ sub src {
$self->setLastMod($m->[0]{released});
$self->resHeader('Content-Type', 'text/plain; charset=UTF-8');
$self->resHeader('Content-Disposition', sprintf 'filename="%s.%s"', $m->[0]{name}, $m->[0]{section});
my $c = $self->dbManContent($m->[0]{hash});
lit $c;
}
@ -680,7 +681,7 @@ sub dbManInfo {
my $s = shift;
my %o = @_;
(my $oname = $o{name}||'') =~ s/\.([0-9n])$//;
(my $oname = $o{name}||'') =~ s/\.([0-9nk]|kde3)$//;
my %where = (
$o{name} ? ('m.name IN(!l)' => [[ $o{name}, $oname ne $o{name} ? $oname : () ]]) : (),
$o{package} ? ('m.package = ?' => $o{package}) : (),