#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
package Packages::Dispatcher;
use CGI;
use POSIX;
use File::Basename;
-use URI::Escape;
-use HTML::Entities;
use Template;
use DB_File;
+use URI::Escape;
use Benchmark ':hireswallclock';
use I18N::AcceptLanguage;
use Locale::gettext;
\@all_langs ) || 'en';
debug( "LANGUAGES=@all_langs header=".
($input->http("Accept-Language")||'').
- " http_lang=$http_lang", 2 ) if DEBUG;
- bindtextdomain ( 'pdo', $LOCALES );
- textdomain( 'pdo' );
+ " http_lang=$http_lang", 1 ) if DEBUG;
# backwards compatibility stuff
debug( "SCRIPT_URL=$ENV{SCRIPT_URL} SCRIPT_URI=$ENV{SCRIPT_URI}" ) if DEBUG;
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;
push @components, 'index' if @components && $path =~ m,/$,;
my %LANGUAGES = map { $_ => 1 } @all_langs;
- if (@components > 0 and $LANGUAGES{$components[0]}
+ if (@components > 1 and $LANGUAGES{$components[0]}
and !$input->param('lang')) {
$input->param( 'lang', shift(@components) );
}
- if (@components > 0 and $components[0] eq 'source') {
+ if (@components > 1 and $components[0] eq 'source') {
shift @components;
$input->param( 'source', 1 );
}
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 );
-
- my $locale = get_locale($opts{lang});
- my $charset = get_charset($opts{lang});
- setlocale ( LC_ALL, $locale )
- or do { debug( "couldn't set locale $locale, using default" ) if DEBUG;
- setlocale( LC_ALL, get_locale() )
- or do {
- debug( "couldn't set default locale either" ) if DEBUG;
- setlocale( LC_ALL, "C" );
- };
- };
- debug( "locale=$locale charset=$charset", 2 ) if DEBUG;
+ Packages::CGI::init_url( $input, \%params, \%opts );
+
+ my $charset = "UTF-8";
+ my $cat = Packages::I18N::Locale->get_handle( $opts{lang} )
+ or die "get_handle failed";
$opts{h_suites} = { map { $_ => 1 } @suites };
$opts{h_sections} = { map { $_ => 1 } @sections };
my $template = new Packages::Template( $TEMPLATEDIR, $opts{format},
{ lang => $opts{lang}, charset => $charset,
+ cat => $cat,
debug => ( DEBUG ? $opts{debug} : 0 ) },
( $CACHEDIR ? { COMPILE_DIR => $CACHEDIR } : {} ) );
#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{opts} = \%opts;
$page_content{params} = \%params;
- $page_content{make_search_url} = sub { return &Packages::CGI::make_search_url(@_) };
- $page_content{make_url} = sub { return &Packages::CGI::make_url(@_) };
- # 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(@_) };
- $page_content{quotemeta} = sub { return quotemeta($_[0]) };
- $page_content{string2id} = sub { return &Packages::CGI::string2id(@_) };
-
unless (@Packages::CGI::fatal_errors) {
print $input->header(-charset => $charset, -type => get_mime($opts{format}) );
#use Data::Dumper;