print qq~
  <table align=center width=90%>
  <th>Авторизация:</th>
  <tr><td><center>
  <form method=post action=f.pl>
  Логин: <input name=FAlogin>
  Пароль: <input name=FApassw type=password>
  <input name=action type=hidden value=auth>
  <input type=submit value=Войти>
  <a href=f.pl?act=reg>Регистрация</a>
  </form>
  </table>
  ~;
  $FAlogin = $cgi->param("FAlogin");
  $FApassw = $cgi->param("FApassw");
  if ($action eq "auth")
  {
   &auth;
  }

sub auth {
 if (-e "users/$FAlogin.user")
 {
  open UF, "users/$FAlogin.user";
  @ui = <UF>;
  close UF;
  $passw = $ui[1];
  $Cpassw = crypt($passw, $passw);
  if ($Cpassw eq $FApassw)
  {
   print "<script language=\"JavaScript\">alert(\'Вы успешно авторизированы!\');</script>";
  }else
  {
   print "<script language=\"JavaScript\">alert(\'Неверный пароль!\');</script>";
  }
 }else
 {
  print "<script language=\"JavaScript\">alert(\'Пользователя с таким именем не существует!\');</script>";
 }
}

main_c0der
pauONM/HSu9pM
0