Исходное сообщение
"perl lightsquid ip2name.squidauth % в нормальный вид" Отправлено netc, 21-Мрт-09 14:17
есть lightsquid, есть пользователи аутен-иеся через AD с русскими логинами (знаю, сам готов убить того, кто это допустил) у lightsquid есть файлик ip2name.squidauth: Ребят мучаюсь уже целый день - ну не знаю я перла, помогите плиз #contributor: esl #specialy for squid with turned on user authentication #simple version sub StartIp2Name() { } sub Ip2Name($$$) {   # $Lhost,$user,$Ltimestamp   my $Lhost=shift;   my $user =shift;   $user    =URLDecode($user); #decode user name   return $user if ($user ne "-");   return $Lhost; } sub StopIp2Name() { } #warning !!! 1; В этом файлике нужно сделать преобразование из:              $user = "%d4%c5%cd%d0" - идут именно %-ы получить при этом       $user = "темп" обязательно в кодировке win1251 сделать это нужно в место этой строчки - это я проверял в течении всего дня ;) $user    =URLDecode($user); #decode user name как говориться надежда только на знатаков perl

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> есть lightsquid, есть пользователи аутен-иеся через AD с русскими логинами (знаю, сам > готов убить того, кто это допустил) > у lightsquid есть файлик > ip2name.squidauth: > Ребят мучаюсь уже целый день - ну не знаю я перла, помогите > плиз > [code] > #contributor: esl > #specialy for squid with turned on user authentication > #simple version > sub StartIp2Name() { > } > sub Ip2Name($$$) { > # $Lhost,$user,$Ltimestamp > my $Lhost=shift; > my $user =shift; > $user =URLDecode($user); #decode user name > return $user if ($user ne "-"); > return $Lhost; > } > sub StopIp2Name() { > } > #warning !!! > 1; > [/code] > В этом файлике нужно сделать преобразование из: > $user = "%d4%c5%cd%d0" - идут именно > %-ы > получить при этом > $user = "темп" обязательно в кодировке > win1251 > сделать это нужно в место этой строчки - это я проверял в > течении всего дня ;) > $user =URLDecode($user); #decode user name > как говориться надежда только на знатаков perl
	Введите код, изображенный на картинке: