The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]




Версия для распечатки Пред. тема | След. тема
Новые ответы [ Отслеживать ]
Как узнать под каким именем зарегестрировался пользователь на перле, !*! Black, 30-Янв-04, 16:24  [смотреть все]
есть локальная сеть.
раздает интернет пользователям прокси-сервер (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;

ничего не дает... может это не та переменная?





Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру