repin777
Зарегистрирован: 16.12.2003
Сообщения: 3
|
 Добавлено: Вт Дек 16 2003 14:56 Заголовок сообщения: Проблема с авторизацией на Perl? |
 |
|
Пишу скрипт, вначале авторизация средствами бровзера:
| Код: | use MIME::Base64;
$ENV{HTTP_CGI_AUTHORIZATION} =~ s/basic\s+//i;
($REMOTE_USER,$REMOTE_PASSWD) =
split(/:/,decode_base64($ENV{HTTP_CGI_AUTHORIZATION}));
if (exists($ENV{HTTP_CGI_AUTHORIZATION})) {
print "WWW-Authenticate: Basic realm=\"что то там\"\n";
print "Status: 401 Unauthorized\n\n";
print "Ошибка авторизации!\n";
exit;
}
print "Content-type: text/html\n\n";
print "Привет, $REMOTE_USER!";
exit; |
Авторизовыватся не хочет, объясняю:
Запускаю скрипт в бровзере он выводит талбичку введите типа Догин и Пароль, ввожу а он опять введите, ну я опять а он все равно введите, итак 3 раза, а после выводит "Ошибка авторизации!".
Да же если весь скрипт заменить на:
| Код: | print "WWW-Authenticate: Basic realm=\"что то там\"\n";
print "Status: 401 Unauthorized\n\n";
print "Ошибка авторизации!\n"; |
то он все равно спросит 3 раза а потом "Ошибка авторизации!".
Где грабли?
ps: Хостинг профессиональный, так что в настройках Apache я думаю все впорядке.
_________________
-=/\ Ё }{ @=- |
|
FAQ 
Поиск 
Пользователи 
Группы
Регистрация
Профиль 
Войти и проверить личные сообщения 
Вход 
