trunk/clients/perl/OpenXPKI-Client-HTML-Mason/htdocs/lib/language.mhtml

   1 <%args>
   2     $session_id => undef
   3 </%args>
   4 <%init>
   5     ## try to detect the language from a parameter
   6     my %args = $m->request_args();
   7     if (exists $args{'__language'} && $args{'__language'})
   8     {
   9         $session_cache{$session_id}->{language} = $args{"__language"}
  10             if (defined $session_id);
  11         return set_language ($args{"__language"});
  12     }
  13
  14     ## check for a session
  15     ## try to detect the language from the session
  16     if ($session_id and
  17         exists $session_cache{$session_id}->{language} and
  18         length $session_cache{$session_id}->{language})
  19     {
  20         return set_language ($session_cache{$session_id}->{language});
  21     }
  22
  23     ## try to detect the language from the browser env
  24     #my $browser = $args{'HTTP_ACCEPT_LANGUAGE'};
  25     my $browser = $ENV{'HTTP_ACCEPT_LANGUAGE'};
  26
  27     ## supported languages so far
  28     my %possible_translations = (
  29         C  => 'C',     ## this should only be used for debugging and testing
  30         en => 'en_US',
  31         de => 'de_DE',
  32         ru => 'ru_RU',
  33     );
  34     my %translations = (
  35         C  => 'C',
  36     );
  37     my @configured_translations = $m->comp('/lib/configured_languages.mhtml');
  38     foreach my $lang (@configured_translations) {
  39         $translations{$lang} = $possible_translations{$lang};
  40     }
  41
  42     ## get languages
  43     ## example firebird:
  44     ##  language: en,en-us;q=0.8,de;q=0.7,de-de;q=0.5,ja;q=0.3,ar;q=0.2
  45     ##  charset : ISO-8859-1,utf-8;q=0.7,*;q=0.7
  46     ## example explorer:
  47     ##  language: de,de-at;q=0.7,ja;q=0.3
  48     ##  charset :
  49
  50     ## if first lang matches one of our support chooes it
  51     ## if not - take next
  52     ## if none matches - choose default C
  53
  54     ## BTW we enforce utf8 as charset
  55     my @list = ();
  56     if ($browser) {
  57         @list = split (/,/ , $browser);
  58     }
  59
  60     ## check every browser supported lang until one matches our supported ones
  61     my $found = 0;
  62     foreach my $lang (@list){
  63       ## get only the firt two characters for each supported language
  64       ## skip country details and rating q=0.7 or something
  65       ## since they are usally in order from first to last supported
  66       my $choose = substr($lang,0,2);
  67       if ($translations{$choose})
  68       {
  69           #print "LANG: ".$translations{$choose}."\n";
  70           set_language($translations{$choose});
  71           $session_cache{$session_id}->{language} = $translations{$choose}
  72               if (defined $session_id);
  73           return;
  74       }
  75     }
  76
  77     ## use the system default language
  78     my $default_lang = 'en_US';
  79     set_language($default_lang);
  80     $session_cache{$session_id}->{language} = $default_lang
  81         if (defined $session_id);
  82     return;
  83 </%init>