Сообщения

[Доступ закрыт!]

1

Perl / Авторизация

« : 18 Июля 2007, 14:15:09 »

Появилась проблема при осуществлении авторизации на сервере, точнее саму авторизацию я сделал с помощью мода rewrite, а вот теперь как сделать выход??? Ситуация такая пользователь заходит на сайт перед ним выскакивает окошко сервера с просьбой ввести логин и пароль, пользователь вводит данные после чего они проверяются по базе МУСКУЛА и принимается решение пропустить или нет. Если логин валидный то пользователь заходит и каждая такая следующая проверка уже происходит автоматичекий без просьбы у пользователя снова ввести данные. Вообщем обычная серверная авторизация

вот код

$ENV{\'HTTP_CGI_AUTHORIZATION\'} =~ s/basic\\s+//i;
($ENV{\'REMOTE_USER\'}, my $REMOTE_PASSWD) =  split(/:/,decode_base64($ENV{\'HTTP_CGI_AUTHORIZATION\'}));
# проверяем значения $REMOTE_USER и $REMOTE_PASSWD
$type = &UserAccess($ENV{\'REMOTE_USER\'},$REMOTE_PASSWD);
if ($type<0) {
print  "Status: 401 Unauthorized\\r\\n",
       "WWW-Authenticate: Basic realm=\\"Access Denied\\"\\r\\n",
       "Content-type: text/html\\n\\n",
       "Доступ закрыт!\\r\\n";

exit;
};

&UserAccess - функция возвращает уровень доступа пользователя, если меньше нуля то такого пользователя ваще нету

теперь собственно сама проблема:
как сделать чтобы пользователь смог выйти и зайти допустим под другим ником, данные введеные один раз при запросе на логин сохраняются в переменных сервера и добраться до них я незнаю как, мож кто поможет? Заранее спасибо