ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Dmitry Lediaev                       2:5020/400     11 Jul 2003  08:29:14
 To : Viktor Boyko
 Subject : Re: форма
 -------------------------------------------------------------------------------- 
 

 
 Viktor Boyko пишет в сообщении <1057773592@p3.f2121.n5030.z2.FIDOnet.ftn>
 ...
 
 >Как енто сделать? Hаишите плз код с момента открытия файла для чтения и
 
 цикла
 
 >перебора имён из файла и имени в переменной..
 Вот посмотри, может пойдет
 
 # Открывается файл с юзерскими именами и паролями
 open (PASSWORD, "$path/$cdpwd") || &open_error("$path/$cdpwd");
 @lines = <PASSWORD>;
 close (PASSWORD);
 foreach $line (@lines)
 {
     ($username, $realpassword) = split(/\+/,$line);
     $pwordlist{$username}=$realpassword;
 }
 
 # Если имя юзера не найдено
 if (!$pwordlist{$FORM{'username'}}) {&form_error("$error_namebad");}
 # Если имя юзера не совпадает с паролем
 elsif ($FORM{'password'} ne $pwordlist{$FORM{'username'}} )
 {&form_error("$error_pwdbad");}
 # Если все ОК
 else {
 .....
 }
 
 формат файла с паролями:
 username+pass+
 test+mypass+
 и т.д.
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: