diff options
author | Yorhel <git@yorhel.nl> | 2015-12-19 11:46:10 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2015-12-19 11:47:42 +0100 |
commit | 8808b538f56e687360ee6659011777cd5eaad212 (patch) | |
tree | 9be8dc1606e4ac8db27169f0b00b097ef410526b /www | |
parent | 2da67d585ccdce8820ca5730811bb9d7efe3b8e5 (diff) |
Add source page file name + fix handling of some odd suffixes
Diffstat (limited to 'www')
-rwxr-xr-x | www/index.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/www/index.pl b/www/index.pl index 8b8eba7..59b6405 100755 --- a/www/index.pl +++ b/www/index.pl @@ -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}) : (), |