use CGI;
use POSIX;
use File::Basename;
-use URI;
-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;
+ " http_lang=$http_lang", 1 ) if DEBUG;
bindtextdomain ( 'pdo', $LOCALES );
+ bindtextdomain ( 'templates', $LOCALES );
+ bindtextdomain ( 'langs', $LOCALES );
textdomain( 'pdo' );
# backwards compatibility stuff
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;
setlocale( LC_ALL, "C" );
};
};
- debug( "locale=$locale charset=$charset", 2 ) if DEBUG;
+ debug( "locale=$locale charset=$charset", 1 ) if DEBUG;
$opts{h_suites} = { map { $_ => 1 } @suites };
$opts{h_sections} = { map { $_ => 1 } @sections };
$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(@_) };
- $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;
- };
- # 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;