Help for this page

Select Code to Download


  1. or download this
    package SSS;
use lib '../lib/perl-5.8.3/lib/site_perl';
...
 
 
1;
  2. or download this
     
use CGI;
use SSS;
...
my $lang_to_use = get_lang($q->http('Accept-language'), $sf->{LANGUAGE
+S}) ;
$lang_to_use = $sf->{LANG_DEFAULT} if (!defined($lang_to_use));
my $lh = SSS->get_handle($lang_to_use);