perl-CGI-Lingua-0.55-alt1 P > @ , 0 9b2d75293a066123fa6df560d17e736d93917f8c ~ %]E]l"h > 0 ? d ; X \ x | ( , 0 8 z | 0 ( 8 9 : A y F G H I \ ] ^ d e f C perl-CGI-Lingua 0.55 alt1 Create a multilingual web page No longer does your website need to be in English only. CGI::Lingua provides a simple basis to determine which language to display a website. The website tells CGI::Lingua which languages it supports. Based on that list CGI::Lingua tells the application which language the user would like to use. use CGI::Lingua; my $l = CGI::Lingua->new(supported => ['en', 'fr', 'en-gb', 'en-us']); my $language = $l->language(); if ($language eq 'English') { print '
Hello
'; } elsif($language eq 'French') { _print 'Bonjour
'; } else {_# $language eq 'Unknown' _my $rl = $l->requested_language(); _print "Sorry for now this page is not available in $rl.
"; } my $c = $l->country(); if ($c eq 'us') { } elsif ($c eq 'ca') { } else { } use CHI; use CGI::Lingua; my $cache = CHI->new(driver => 'File', root_dir => '/tmp/cache', namespace => 'CGI::Lingua-countries'); my $l = CGI::Lingua->new({ supported => ['en', 'fr'], cache => $cache }); Vigor.hasher.altlinux.org ALT Linux ALT Linux Team open_source Igor Vlasenko