AddLanguage bg .bg
AddLanguage ca .ca
AddLanguage cs .cs
- AddCharset ISO-8859-2 .cs
AddLanguage da .da
- AddCharset ISO-8859-1 .da
AddLanguage de .de
AddLanguage el .el
AddLanguage eo .eo
AddLanguage es .es
- AddCharset ISO-8859-1 .es
AddLanguage fi .fi
- AddCharset ISO-8859-1 .fi
AddLanguage fr .fr
AddLanguage hr .hr
AddLanguage hu .hu
- AddCharset ISO-8859-2 .hu
AddLanguage id .id
AddLanguage it .it
- AddCharset ISO-8859-1 .it
AddLanguage ja .ja
- AddCharset EUC_JP .ja
AddLanguage ko .ko
AddLanguage lt .lt
AddLanguage nl .nl
- AddCharset ISO-8859-1 .nl
AddLanguage no .no
AddLanguage nb .nb
AddLanguage pl .pl
- AddCharset ISO-8859-2 .pl
AddLanguage pt .pt
- AddCharset ISO-8859-1 .pt
AddLanguage pt-pt .pt_PT
- AddCharset ISO-8859-1 .pt_PT
AddLanguage pt-br .pt_BR
- AddCharset ISO-8859-1 .pt_BR
AddLanguage ro .ro
AddLanguage ru .ru
AddLanguage sk .sk
- AddCharset ISO-8859-2 .sk
AddLanguage sl .sl
AddLanguage sv .sv_SE
- AddCharset ISO-8859-1 .sv_SE
AddLanguage tr .tr
AddLanguage uk .uk
- AddCharset KOI8-U .uk
AddLanguage zh-CN .zh-cn
AddLanguage zh-HK .zh-hk
AddLanguage zh-TW .zh-tw
RewriteRule ^/[^/]+\.css - [L]
RewriteRule ^/[^/]+\.js - [L]
-# RewriteRule ^/$ http://www.debian.org/distrib/packages
- RewriteRule ^/$ /index.html [L]
+ RewriteRule ^/$ http://www.debian.org/distrib/packages
+# RewriteRule ^/$ /index.html [L]
RewriteRule ^/([^/+]*)([+])([^/]*)$ "/$1%%{%}2B$3" [N]
RewriteRule ^/changelog:(.+)$ http://%SITE%/changelogs/${changelog-url:$1} [R,L,NE]
RewriteRule ^/src:([^/]+)$ /source/$1 [R,L,NE]
my $what_to_do = 'show';
my $source = 0;
- if (my $path = $input->path_info() || $input->param('PATH_INFO')) {
+ if (my $path = $ENV{'PATH_INFO'} || $input->param('PATH_INFO')) {
my @components = grep { $_ } map { lc $_ } split /\/+/, $path;
debug( "PATH_INFO=$path components=@components", 3) if DEBUG;
array => '\s+',
match => '^([-+\@\w\/.:]+)$',
},
- package => { default => undef,
- match => '^([\w.+-]+)$',
- var => \$pkg },
+ 'package' => { default => undef,
+ match => '^([\w.+-]+)$',
+ var => \$pkg },
suite => { default => 'default', match => '^([\w-]+)$',
array => ',', var => \@suites,
replace => { all => \@SUITES,
arch => { default => 'any', match => '^([\w-]+)$',
array => ',', var => \@archs, replace =>
{ any => \@ARCHITECTURES } },
- format => { default => 'html', match => '^([\w.]+)$', },
- mode => { default => '', match => '^(\w+)$', },
- sort_by => { default => 'file', match => '^(\w+)$', },
- );
+ 'format' => { default => 'html', match => '^([\w.]+)$', },
+ mode => { default => '', match => '^(\w+)$', },
+ sort_by => { default => 'file', match => '^(\w+)$', },
+ );
my %opts;
my %params = Packages::CGI::parse_params( $input, \%params_def, \%opts );
- Packages::CGI::init_url( $input, \%params, \%opts );
+ Packages::CGI::init_url( $input, \%params, \%opts );
my $locale = get_locale($opts{lang});
my $charset = get_charset($opts{lang});
#FIXME: ugly hack
unless (($what_to_do eq 'allpackages' and $opts{format} =~ /^(html|txt\.gz)/)
- || -e "$TEMPLATEDIR/$opts{format}/${what_to_do}.tmpl") {
- fatal_error( "requested format not available for this document",
+ || -e "$TEMPLATEDIR/$opts{format}/${what_to_do}.tmpl") {
+ fatal_error( _g("requested format not available for this document"),
"406 requested format not available");
}
$page_content{make_search_url} = sub { return &Packages::CGI::make_search_url(@_) };
$page_content{make_url} = sub { return &Packages::CGI::make_url(@_) };
$page_content{extract_host} = sub { my $uri = URI->new($_[0]);
- my $host = $uri->host;
- $host .= ':'.$uri->port if $uri->port != $uri->default_port;
- return $host;
- };
+ my $host = $uri->host;
+ $host .= ':'.$uri->port if $uri->port != $uri->default_port;
+ return $host;
+ };
# needed to work around the limitations of the the FILTER syntax
$page_content{html_encode} = sub { return HTML::Entities::encode_entities(@_,'<>&"') };
$page_content{uri_escape} = sub { return URI::Escape::uri_escape(@_) };