powered by simpleCommunicator - 2.0.49     © 2025 Programmizd 02
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Проблема с авторизацией в Perl
1 сообщений из 1, страница 1 из 1
Проблема с авторизацией в Perl
    #32205448
Hi all !
Проблема такая:
Есть perl cgi скрипт который кидает стандартый заголовок с стребованием
авторизации в браузер (соотв он лежит в каталоге cgi-bin).....
Вот тут прочитал как это делать:
http://www.opennet.ru/base/dev/cgi_auth_401.txt.html
т е берется файл .htaccess со след содержимым:
------------------ .htaccess -------------------
<Files "401.cgi">
RewriteEngine On
RewriteRule .* - [E=REMOTE_USER:%{HTTP:Authorization},L]
</Files>
--------------------- eof ----------------------
файл "401.cgi" :
#!/usr/bin/perl -w
use strict;
use CGI;

if (!$ENV{'REMOTE_USER'}) {
my $q = CGI->new;
print $q->header(-status => 401,
-www_authenticate => 'Basic realm="test"',
-type => 'text/html'),
$q->start_html('Authorization required'),
$q->h2('Authorization required'),
$q->end_html;
}

....
В результате запуска скрипта - он не работает ...
т е окошко с авторизацией выдается а вот условие
if ($ENV{'REMOTE_USER'}) {
}
не выполняется... почему ?
...
Рейтинг: 0 / 0
1 сообщений из 1, страница 1 из 1
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Проблема с авторизацией в Perl
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]