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!!!";}