$preferences{title}

#!/usr/bin/perl -T -w use strict; #comments till line 27 my $lang; if ( $ENV{'QUERY_STRING'} ) { $ENV{'QUERY_STRING'} =~ /.*lang=(\w{2}).*/; $lang=$1; my $fut_time=gmtime(time()+365*24*3600)." GMT"; my $cookie = "GestioIPLang=$lang; path=/; expires=$fut_time; 0"; print "Set-Cookie: " . $cookie . "\n"; } elsif ( $ENV{'HTTP_COOKIE'} ) { $ENV{'HTTP_COOKIE'} =~ /.*GestioIPLang=(\w{2}).*/; $lang=$1; } if ( ! $lang ) { $lang=$ENV{HTTP_ACCEPT_LANGUAGE}; $lang =~ /(^\w{2}).*/; $lang = $1; } my $config; if ( $lang eq "es" ) { $config="./vars_es"; } elsif ( $lang eq "en" ) { $config="./vars_en"; } elsif ( $lang eq "de" ) { $config="./vars_de"; } else { $config="./vars_es"; } open(CONFIG,"<$config") or die "can't open $config: $!"; my %preferences; while () { chomp; s/#.*//; s/^\s+//; s/\s+$//; next unless length; my ($var, $value) = split(/\s*=\s*/, $_, 2); $preferences{$var} = $value; } close CONFIG; print < $preferences{title}