view release on metacpan or  search on metacpan

docs/DetectLanguage.pl  view on Meta::CPAN

#!/usr/bin/perl -w

require "Languages.inc"; # ïîëó÷èëè @AvailableLangs
my $AcceptLang=$ENV{HTTP_ACCEPT_LANGUAGE};

#print "content-type: text/html\n\n";

if ( $AcceptLang ) { # Åñëè ïåðåìåííàÿ HTTP-ACCEPT-LANGUAGE îò áðàóçåðà ïîëó÷åíà
# Ïåðåáèðàåì ñïèñîê @AvailableLangs è âûõîäèì, êàê òîëüêî íàòêíåìñÿ íà íóæíûé ÿçûê
  for  ( @{$AvailableLangs} ) {
   if ($AcceptLang=~/$_/ ) { $DefaultLang=$_; last;}
  }
}

( $ScriptPath )=( $ENV{SCRIPT_NAME} =~ m|(/.*/)(.*)$| );
#print "Refresh: 0; url=$ScriptPath$DefaultLang\n\n";

docs/menu.pl  view on Meta::CPAN

#!/usr/bin/perl -w

require "Languages.inc"; # ïîëó÷èëè @AvailableLangs
print "content-type: text/plain\n\n";
( $ScriptPath )=( $ENV{SCRIPT_NAME} =~ m|(/.*/)(.*)$| );
if ( $ScriptPath eq "") { $ScriptPath = "/"; }
# Ïðåäïîëàãàåòñÿ, ÷òî âòîðîé ýëåìåíò ìàðøðóòà - óêàçàíèå íà ÿçûê, òèïà /en/, /ru/ è ò.ï.
( $DocLanguage, $DocPathAfterLang)= ( $ENV{DOCUMENT_URI} =~ m|$ScriptPath(.*)/(.*)| );

# Çäåñü - ãëîáàëüíîå ìåíþ, íå çàâèñÿùåå îò êàòàëîãà. Ýòî ÿçûêè è êîäèðîâêà
my %DocVersions;
# Ïåðåáèðàåì êàòàëîãè-ÿçûêè
for ( @{$AvailableLangs} ) {
    #Ñìîòðèì, åñòü ëè â ýòîì êàòàëîãå ôàéë ñ òî÷íî òàêèì æå íàçâàíèåì