Программирование > Perl
Авторизация
(1/1)
Xpyct:
Появилась проблема при осуществлении авторизации на сервере, точнее саму авторизацию я сделал с помощью мода 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
Green Kakadu:
это проблематично - как вариант, для выхода перенаправить пользователя на другую запаролированную страницу (соответсвенно логин/пароль не совпадающие с пользовательскими ), чтоб он получил 401 Unauthorized
Навигация
Перейти к полной версии