есть локальная сеть.
раздает интернет пользователям прокси-сервер (sqiud). при запуске Internet Explorer'а выпадает диалог где полтьзователь регестрируеться вводя тута имя и пароль... проверяет правильность регистрации скриптик на перле auth.pl
#!/usr/bin/perl
$| = 1 ;
%Users = (
"guest" => "1"
);
while (<>) {
($user, $passwd) = /^(\S+) (\S+)$/ ;
if ((@Users{$user} eq $passwd) && !($user eq"") && !($passwd eq ""))
{
print "OK\n";
} else
{
print "ERR\n";
};
}
храниться ли это имя пользователя в переменных окружения и как его можно выцепть оттуда?... потомучто другой скрипт который запускаеться из-под броузера
#!/usr/bin/perl
use CGI;
print "UserName: ", $REMOTE_USER;
ничего не дает... может это не та переменная?
Вариант для распечатки
WEB технологии (Public)
on
30-Янв-04, 16:24 (MSK)
