multilingue en perl

j'ecris:

my $query = new CGI();
my $session = new CGI::Session("driver:File",undef,{'Directory' =>
'/tmp'});

if ($ENV{SERVER_NAME} eq "mondomaine.fr") {
$session->param('langue', 'fr');
my $langue = $session->param('langue');
}
if ($langue eq "fr") {
print mon header
}

et bien $langue n'existe jamais = à fr quand je rentre via
mondomaine.fr ...

je vois pas

Salut,

On Wed, 19 Oct 2005 22:51:05 +0200, lolodev <laurent.hermann@citinet.fr>
wrote:

my $query = new CGI();
my $session = new CGI::Session("driver:File",undef,{'Directory' =>
'/tmp'});

if ($ENV{SERVER_NAME} eq "mondomaine.fr") {
$session->param('langue', 'fr');
my $langue = $session->param('langue');
}
if ($langue eq "fr") {
print mon header
}

et bien $langue n'existe jamais = à fr quand je rentre via
mondomaine.fr ...

Je n'ai jamais utilisé CGI::Session, mais je ne suis pas convaincu que
SERVER_NAME soit la bonne variable à interroger, suivant ta configuration,
en particulier si tu as un seul virtualhost pour domaine.com et domaine.fr
avec domaine.com en servername et domaine.fr en serveralias. Regarde
plutôt du côté de HTTP_HOST. Et bien entendu domaine.fr et www.domaine.fr
ce n'est pas la même chose.

Bref, un petit print STDERR Dumper(%ENV) t'en dira certainement beaucoup
sur ce qui se passe réellement.

Jacques.
--
Oxado http://www.oxado.com/