Просмотр сообщений
1
Perl / как убрать стандартное popup при вводе логина и пароля
« : 05 Июня 2003, 15:28:14 »
Здравствуйте! Я сделал скрипт, как на Вашем сайте, аутентификация через форму вот фрагмент:
foreach $line(@shadows) {
chomp($line);
($currentuser, $currentpass, $restofline) = split /:/, $line, 3;
if ($currentuser eq $username)
# Выдергиваем зашифрованный пароль из shadow
$saltedpass = $currentpass;
# Проверяем его стандартной функцией crypt
if ( crypt ($plaintext, $saltedpass) eq $saltedpass) {
print "Authentification for $username success!\\n";
} else {
print "Authentification for $username failure!\\n";
}
}
А как сделать, чтобы он мне не писал, Authentification for $username success, а пересылал в закрытую область и при этом не выбрасывал стандартное окно popup для ввода логина и пароля...
помогите пожалуйста, т.к. перелопатил кучу книг(по апаче, перл, CGI) - ничего не нашел.... как в магазине, так и электронных....+на форумах разных искал....
foreach $line(@shadows) {
chomp($line);
($currentuser, $currentpass, $restofline) = split /:/, $line, 3;
if ($currentuser eq $username)
# Выдергиваем зашифрованный пароль из shadow
$saltedpass = $currentpass;
# Проверяем его стандартной функцией crypt
if ( crypt ($plaintext, $saltedpass) eq $saltedpass) {
print "Authentification for $username success!\\n";
} else {
print "Authentification for $username failure!\\n";
}
}
А как сделать, чтобы он мне не писал, Authentification for $username success, а пересылал в закрытую область и при этом не выбрасывал стандартное окно popup для ввода логина и пароля...
помогите пожалуйста, т.к. перелопатил кучу книг(по апаче, перл, CGI) - ничего не нашел.... как в магазине, так и электронных....+на форумах разных искал....
заработало....