devtools/gettext.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

use Locale::gettext;
use POSIX;

my $gettext = Locale::gettext->domain_raw("dhelp");
$gettext->codeset('UTF-8'); # Always UTF-8, specified in the HTML templates

foreach my $locale (qw(
        de_DE.utf8
        el_GR.utf8
        es_ES.utf8
        eu_ES.utf8
        id_ID.utf8
        ru_RU.utf8
        fr_FR.utf8
    )) {
    setlocale(LC_MESSAGES, $locale);
    my $string = "No search database found.\nPlease run /etc/cron.weekly/dhelp as superuser to create it.";
    print "LOCALE $locale ============================\n";
    print $gettext->get($string), "\n";
}