Исправить часть кода Perl скрипта
Евгений21 год в сервисе
Данные заказчика будут вам доступны после подачи заявки
21.05.2006
Есть слудующий кусок кода:
if ($cookies{'lng'} ne 'ru' and $cookies{'lng'} ne 'us' and $cookies{'lng'} ne 'lt')
{
if ($ENV{'HTTP_ACCEPT_LANGUAGE'} =~ /ru/) { $cookies{'lng'}='ru'; }
elsif ($ENV{'HTTP_ACCEPT_LANGUAGE'} =~ /lt/) { $cookies{'lng'}='lt'; }
else { $cookies{'lng'}=$init{'dconfig'}{'DefaultLNG'}; }
}
Надо исправить так чтобы, если пользователь заходит на домен .com и 'HTTP_ACCEPT_LANGUAGE' не ru и не lt, то $cookies{'lng'}='en', а если пользователь заходит на домен .ru, и 'HTTP_ACCEPT_LANGUAGE' не en и не lt, то $cookies{'lng'}='ru'
Оплата после завершения, сдачи и проверки работ.