|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Roman O. Yerin 2:5020/400 03 Mar 2002 00:56:04
To : Maxim Fedotov
Subject : Re: Авторизация
--------------------------------------------------------------------------------
--SKIP--
Вот смотри, набирайся:)
#!/usr/bin/perl -w
use strict;
use locale;
use CGI qw(:standard);
my $user = param('user');
my $password = param('password');
my $etalon_user = 'Злобный';
my $etalon_pwd = 'pwd';
if(($user eq '')and($password eq '')){
print header(-charset=>'Windows-1251'),
start_html(-lang=>'RU',-title=>'Пример
аутентификации',-style=>'table
{border-style:solid;border-width:1} td{border-width:0}'),
h3('Здесь вводи имя и
пароль'),start_form(-enctype=>'multipart/form-data',-method=>'GET'),
table({-border=>'1'},
Tr({-align=>'center'},
[
td ( ['Имя',textfield(-name=>'user')] ),
td ( ['Пароль',password_field(-name=>'password')] ),
td ( ['',submit(-value=>'Send')] )
]
)
),
endform,
end_html;
}
else{
print header(-charset=>'Windows-1251'),
start_html(-lang=>'RU',-title=>'Пример
аутентификации',-style=>'table
{border-style:solid;border-width:1} td{border-width:0}');
#Вот что тебе нужно. uc (преобразование в верхний регистр) имени
пользователя и последующее сравнение. Обрати внимание на use locale
вверху
#скрипта, без этого с русским трудности возникнут:)
$user = uc $user;
$etalon_user = uc $etalon_user;
print "Имя $user <br> Пароль $password <hr> Результат
сравнения",'<br>Имя ',($user
eq $etalon_user)?'верно':'неверно','<br>Пароль ',($password eq
$etalon_pwd)?'верен':'неверен',
end_html;
}
--
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: Talk.Mail.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
