ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Sergey Antropov                      2:5020/1842.7  08 May 2003  01:42:46
 To : All
 Subject : Cookies
 -------------------------------------------------------------------------------- 
 

 
 sub userlogin {
 
 $nick=$FORM{'nick'};
 $pass=$FORM{'password'};
 
 $dbh = DBI->connect("DBI:mysql:$database:$db_server", $user, $password);
 
 $sth = $dbh->prepare("select nick,password from users where nick='$nick'") ||
 die $dbh->errstr;
 
 $sth->execute || die $dbh->errstr;
 
 @login = $sth->fetchrow_array;
 if ($login[0] eq $nick and $login[1] eq $pass) {print "Вы вошли";} else {print
 "Введено неправильное имя или пароль";}
 
 $cookie=cookie(-name => 'netlib',
            -value => '$nick::$pass');
 
 print header(-cookies=>$cookie);
 $sth->finish;
 $dbh->disconnect;
 
 }
 
 Вот код, а выдайт он мне в браузере вот что:
 Вы вошлиSet-Cookie: netlib=%24nick%3A%3A%24pass; path=/cgi-bin/ Date: Wed, 07
 May 2003 21:42:12 GMT Content-Type: text/html
 
 Что зжесь можно исправить? Чтобы работало нормально. Где у меня руки кривые?
 
  [ы] Пока, All, счастливого тебе коннекта ! ...
 --- GoldED+/W32 1.1.4.7, FastFTN v1.56
  * Origin: Генеpальный спонсоp апокалипсиса-компания Microsoft (2:5020/1842.7)
 
 

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