#!/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";
print "Location: $ScriptPath$DefaultLang\n\n";