use Data::Dumper;
use HTML::Entities;
use URI::Escape;
-use Locale::gettext;
use Deb::Versions;
use Packages::Template;
-use Packages::Config qw( $TOPDIR @LANGUAGES $LOCALES);
+use Packages::Config qw( $TOPDIR @LANGUAGES );
use Packages::I18N::Locale;
&Packages::Config::init( './' );
+&Packages::I18N::Locale::load( "$TOPDIR/po" );
my $debtagsdir = "$TOPDIR/files/debtags";
my $wwwdir = "$TOPDIR/www/about";
my $voc_file = "$debtagsdir/vocabulary";
$/ = "";
-delete $ENV{'LANGUAGE'};
-delete $ENV{'LANG'};
-delete $ENV{'LC_ALL'};
-delete $ENV{'LC_MESSAGES'};
-bindtextdomain ( 'debtags', $LOCALES );
-textdomain( 'debtags' );
-
sub process_desc {
my ($desc) = @_;
$voc_db{$voc_key} = $sdesc || "";
foreach my $lang (@LANGUAGES) {
- my $locale = get_locale( $lang );
- setlocale ( LC_ALL, $locale ) or do {
- warn "couldn't set locale ($lang/$locale)\n";
- next;
- };
+ next if $lang eq 'en';
+
+ my $cat = Packages::I18N::Locale->get_handle($lang)
+ or die "get_handle failed for $lang";
- my $sdesc_trans = dgettext( 'debtags', $sdesc );
+ my $sdesc_trans = $cat->maketext($sdesc);
$voc_db{"$voc_key-$lang"} = $sdesc_trans
if $sdesc_trans and $sdesc_trans ne $sdesc;
}
my @tags = sort( grep { exists $voc{$_}{tag} } keys %voc );
my %tags_by_facet;
foreach (@tags) {
- my ($facet, $tag) = split /::/, $_, 2;
+ my ($facet, $tag) = split m/::/, $_, 2;
warn "No facet data available for $facet\n"
unless exists $voc{$facet};
$tags_by_facet{$facet} ||= [];