Http-авторизация на Perl, как сделать?

[Gekt0r]

Всем привет, вопрос следующий..
Есть большой сайт, сделанный на перле с использованием HTML::Mason.
Надо сделать возможность вешать апач-авторизацию на некоторые страницы сайта (и при желании ее отключать и снова включать из админки).
Я несколько дней копаюсь и уже с этим завис.
В инете нашел решение, однако оно требует подключения к апачу mod_rewrite, а хочется без этого.

.htaccess тоже использовать не получится, т.к. закрывать надо не директории.
Уже больше недели с этим копаюсь, перерыл кучу гов... то есть разных материалов))

Я написал такой код:

Код:

use CGI;

my $q = CGI->new;
print $q->header(-status => 401,
-www_authenticate => 'Basic realm="test"',
-type => 'text/html');

он посылает браузеру заголовок для авторизации.

Потом надо поймать введенные данные:

Код:

my $user = $r->user();
my ($status, $passwd) = $r->get_bacis_auth_pw();

однако после этого имя и пароль пустые, а статус содержит 500.
Что-то мне подсказывает, что где-то я ошибся))

Подскажите, как выудить имя и пароль, ммм?

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

[Sla]

Код:

    AuthUserFile /full/path/to/.htpasswd
    AuthType Basic
    AuthName “My Secret Page”

    <Files “mypage.html”>
    Require valid-user
    </Files>

mod_rewrite? хм...

[Gekt0r]

это что?)

[Sla]

это доступ к файлу, прописан в  .htaccess и пользующий .htpass

[Gekt0r]

я же написал...
.htaccess не используется)

[Sla]

.htaccess тоже использовать не получится, т.к. закрывать надо не директории.

я же написал...
.htaccess не используется)

мой пример - доступ к файлу!

[RXL]

Трабла в том, что Apache не передает в переменные окружения CGI-программы заголовков авторизации.

Как получить данные авторизации:
http://xpoint.ru/forums/programming/perl/misc/faq.xhtml#6

Код: (Text)

RewriteEngine on
RewriteCond %{HTTP:Authorization} ^(.*)
RewriteRule ^(.*) - [E=HTTP_CGI_AUTHORIZATION:%1]

Код: (Perl)

use MIME::Base64;

$ENV{HTTP_CGI_AUTHORIZATION} =~ s/basic\s+//i;
($REMOTE_USER,$REMOTE_PASSWD) =
  split(/:/,decode_base64($ENV{HTTP_CGI_AUTHORIZATION}));

[McZim]

к сожалению в perl нормальных штатных средств авторизации через веб, нет. Поэтому нужно вам писать функции самому, заведите такое понятие как action_id, привяжите его к некоторому набору правил.

[RXL]

McZim, нифига не понятно. Объясни, пожалуйста, что ты хотел сказать.


Пример авторизации по Basic. Я использовал вышеприведенные настройки для mod_rewrite, только переменную назвал логичнее - HTTP_AUTHORIZATION.

Код: (Perl)

#!/usr/bin/perl

use MIME::Base64;
use strict;

$| = 1;

my ($user, $password);

unless (defined $ENV{HTTP_AUTHORIZATION} and $ENV{HTTP_AUTHORIZATION} =~ m/^\s*basic\s+([^\s]+)/i)
{
    print "Status: 401 Unauthorized\n";
    print "WWW-Authenticate: Basic realm=\"test shelek\"\n";
    print "\n";
    exit 0;
}

($user, $password) = split(/:/, decode_base64($1));

print "Status: 200 OK\n";
print "Content-Type: text/plain; charset=utf-8\n";
print "\n";

print "$user = $password\n";

Браузер после удачной авторизации будет постоянно добавлять Authorization в запрос, а скрипт на сервере будет каждый раз проверять.

[Gekt0r]

ребята mod_rewrite на сервере нет..)))
поэтому это все сделать не получится

[PooH]

Gekt0r, чем не устраивает вариант который Sla предложил во втором посте?

[RXL]

PooH, аутентификация Апачем или приложением: в вопросе было второе. Но, как показывает практика, без примочек со стороны Апача не обходится, т.к. в CGI-приложение не передаются залоговки об авторизации (в виде переменных окружения). Это вполне логично с точки зрения секюрности, когда приложение отдельно, а аутенификация отдельно.

[PooH]

RXL, вроде как в вопросе было первое:

Надо сделать возможность вешать апач-авторизацию на некоторые страницы сайта

Хотя может я просто не правильно понял.

[RXL]

Может Gekt0r нам прояснит - чего ему надо было...

[Gekt0r]

Может Gekt0r нам прояснит - чего ему надо было...

да, давайте проясню.
На сайте страницы формируются динамически. То есть нет набора хтмл страничек, на которые надо повесить авторизацию. Есть скрипт, который определяет, что на странице надо выдать. И в этот скрипт нужно прописать еще и авторизацию. То есть в админке с свойствах конкретной страницы ставится галочка, что нужно запрашивать имя и пароль. Скрипт на странице проверяет, стоит эта галочка или нет. Если стоит - выдает окошко basic-авторизации

[Sla]

о!
так надо было с самого начал так сказать.

[RXL]

Gekt0r, посмотри посты №6 и №8 - там рабочие примеры.

[Sla]

RXL, так у него прорблема в том, что mod_rewrite -то ли нет, то ли...

[RXL]

Тогда HTTP-аутентификация ему не доступна. Надо думать о сессиях на базе cookie.
Есть еще путь - mod_perl. Конечно, если он установлен на том сервере.

[Gekt0r]

mod_rewrite на сервере нет, собирать его админ не хочется)

mod_perl - есть.
Но он почему-то не цепляет введенные данные. В первом посте я написал, как пытался сделать

[RXL]

Gekt0r, посмотри это:
http://perl.apache.org/docs/2.0/api/index.html
http://perl.apache.org/docs/2.0/api/Apache2/Access.html

Как я понял, авторизацию надо прописывать в конфиг.