|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Artem Chuprina 2:5020/371.32 14 Jun 2000 17:25:55 To : Alexey Medvedev Subject : Re: AvtorizaCIYA -------------------------------------------------------------------------------- <Alexey_Medvedev@p137.f733.n463.z2.fidonet.org> wrote: AM> -==- AM> -=- AM> -- Приветик, многоуважаемый Aleksey! AM> Вcк Июн 11 2000 15:33, Aleksey Barabanov писал к тов. All: >>> Просили-то именно с помощью mod_perl... Hе помню... AB>> Вот и я о том. При чем тут Perl. Авторизация происходит на стороне AB>> проведения авторизации. 1-й. Это упомянутый http - basic auth. AM> Интересует только (1) , ноя уже понял - ответа нет. AB>> "в три строки", не хочу обижать вопрошающего AB>> но это, говоря корректно, для не очень сведующих лиц. AM> Hе хочу тебя разочаровывать, но: AM> <? AM> if(!($PHP_AUTH_USER=="test" && $PHP_AUTH_PW=="test")) { AM> Header("WWW-authenticate: basic realm=\"the site\""); AM> Header("HTTP/1.0 401 Unauthorized"); } AM> ?> AM> Это PHP. Легко и удобно... и 3 строки. AM> Я ожидал от Perl-а большего. Прошу прощения... my ($rc,$password) = $r->get_basic_auth_pw; my $user = $r->connection->user; $r->note_basic_auth_failure unless $user = 'test' && $password = 'test'; return AUTH_REQUIRED; mod_perl. mod_cgi пароль в переменных среды не отдаёт. Из соображений защиты. -- Счастливо! Ран. --- ifmail v.2.14.os-p7-tma3 * Origin: MemoNet (2:5020/371.32@fidonet) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/3473dd7679a6.html, оценка из 5, голосов 10
|