summaryrefslogtreecommitdiff
path: root/www
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2015-12-19 11:46:10 +0100
committerYorhel <git@yorhel.nl>2015-12-19 11:47:42 +0100
commit8808b538f56e687360ee6659011777cd5eaad212 (patch)
tree9be8dc1606e4ac8db27169f0b00b097ef410526b /www
parent2da67d585ccdce8820ca5730811bb9d7efe3b8e5 (diff)
Add source page file name + fix handling of some odd suffixes
Diffstat (limited to 'www')
-rwxr-xr-xwww/index.pl3
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}) : (),