Leser: 1
7 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl -w
use Locale::gettext;
use POSIX; # Needed for setlocale()
use strict;
my $lang = $ENV{'HTTP_ACCEPT_LANGUAGE'};
if((split(/,/, $lang))[0] =~ /^en(.*)/) { $lang = "en"; }
elsif((split(/,/, $lang))[0] =~ /de(.*)/) { $lang = "de"; }
else { $lang = "en"; }
#$ENV{'LANG'}="$lang";
# hier soll die spracheinstellung des browser beachtet werden...
# nicht die des ausfuehrenden servers
setlocale(LC_MESSAGES, $lang);
bindtextdomain("testcgi", "/usr/share/locale");
textdomain("testcgi");
...
print "Content-type: text/html\n\n";
print "<html><head><title>gettext</title></head><body>";
print "<h1>".gettext("Hello gettext")."</h1>";
print "</body></html>";
7 Einträge, 1 Seite |