X-Git-Url: https://git.sesse.net/?p=ccbs;a=blobdiff_plain;f=html%2Fccbs.pm;h=c1406ce1b259e15e6ddc85a1ef1df3f207b7f1b4;hp=d4bc6bc4518d46ab7224ad05e2120ff4b265efc7;hb=2d360215745cb4f4d22697da233b14eaff8ed176;hpb=f3dde0a900066f3d6e73ec41d4bb126128997dea diff --git a/html/ccbs.pm b/html/ccbs.pm index d4bc6bc..c1406ce 100755 --- a/html/ccbs.pm +++ b/html/ccbs.pm @@ -4,8 +4,11 @@ use CGI; use DBI; use HTML::Entities; use Time::HiRes; +use Locale::gettext; +use POSIX; use strict; use warnings; +require '../intl/Sesse::GettextizeTemplates.pm'; our $start_time; @@ -73,11 +76,16 @@ sub process_template { $vars->{'public'} = $ccbs_noadmin; $vars->{'timetogenerate'} = sprintf "%.3f", Time::HiRes::tv_interval($start_time); + POSIX::setlocale( &POSIX::LC_MESSAGES , "en_DK.UTF-8"); + Locale::gettext::bindtextdomain("ccbs", "po"); + Locale::gettext::textdomain("ccbs"); + my $config = { INCLUDE_PATH => 'templates/', INTERPOLATE => 1, POST_CHOMP => 1, EVAL_PERL => 1, + FACTORY => 'Sesse::GettextizeTemplates' }; my $template = Template->new($config);