|
Проблема с авторизацией в Perl
|
|||
---|---|---|---|
#18+
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'}) { } не выполняется... почему ? ... |
|||
:
Нравится:
Не нравится:
|
|||
11.07.2003, 12:27 |
|
|
start [/forum/topic.php?fid=23&gotonew=1&tid=1480525]: |
0ms |
get settings: |
10ms |
get forum list: |
14ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
58ms |
get topic data: |
15ms |
get first new msg: |
40ms |
get forum data: |
3ms |
get page messages: |
41ms |
get tp. blocked users: |
1ms |
others: | 240ms |
total: | 430ms |
0 / 0 |