Консультация № 50456
28.07.2006, 14:47
0.00 руб.
0 1 1
Здравствуйте ув. эксперты!
Подскажите Как сделать аутентификацию на Перле, а не средствами веб-сервера?

желательно, подкиньте пожалуйста 100% работающий пример.

Обсуждение

Неизвестный
28.07.2006, 18:35
общий
это ответ
Доброе время суток, Pessom!

отчегож не подкинуть, пожалуйста :


Приложение:
#!/usr/bin/perl -wuse CGI qw(:standard);my $user = param(‘user‘);my $pwd = param(‘pwd‘);if($user ne ‘name‘ && $pwd ne ‘password‘){print "Status: 401\r\n", "WWW-Authenticate: Basic realm="my secret area"\r\n", "Content-type: text/html\r\n\r\n", "authorization required\r\n";}else{print "Content-type:text/html;\n\n";print "yahoooo!!!";}
Форма ответа