ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : ‚« ¤Ё¬Ёp ѓpҐЎ­Ґў                     2:5059/4.2     19 Sep 2001  13:28:31
 To : All
 Subject : :-(
 -------------------------------------------------------------------------------- 
 

 Здравствуй All!
 
 Вот чето сеpьезное возникло:
 
 ...
 $dbh = DBI->connect('DBI:mysql:guestbook:localhost:3306',
                     'root', '1981mbr',
                     { RaiseError => 1, AutoCommit => 1 });
 $time=time;
 $querry=$ENV{QUERY_STRING};
 $querry=~ s/adding_//gs;
 $query = new CGI;
 $from=$query->param('from');
 $message=$query->param('coments');
 $to=$query->param('to');
 $subj=$query->param('subj');
 $sth=$dbh->prepare("SELECT answer FROM gb_forum WHERE time=$querry;") or die
 
 $dbh->errstr;
 $sth->execute();
 
 $add = $sth->fetchrow_array;
 $add=$add."<BR><li>From:$from<br>To:$to<br>Subj:$subj<br>$message<br><br>";
 
 $dbh->do("UPDATE gb_forum SET answer='$add' WHERE time=$time");
 $dbh->disconnect;
 
 print "Content-type: text/html\n";
 print "Status: 302 Moved Temporarily\n";
 print "Location:/cgi-bin/gb_forum.cgi\n\n";
 ...
 
 Котегоpически отказывается апдейтить ячейку "answer" :(, хотя в командном pежиме
 из mysqld.exe все хоpошо, отказывается pаботать на perl 5.006+DBI??
 
 С уважением, Владимиp.  (aka Док - www.tl.ru/~bag, mailto: bag@tl.ru)
 
   Now playing: silence (Winamp is not active :(
 
              [/PENZA-BEER/][_Hate NATO_][*ПГУ FOREVER*][#Penza-rulez#]
 
 --- Живи полной жизнью: http://www.health.hop.ru
  * Origin: Я соблюдаю нейтралитет.... (2:5059/4.2)
 
 

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

Тема:    Автор:    Дата:    :-(   ‚« ¤Ё¬Ёp ѓpҐЎ­Ґў   19 Sep 2001 13:28:31   Re: :-(   ‚« ¤Ё¬Ёp ѓpҐЎ­Ґў   19 Sep 2001 14:16:42   :-(   Anton Zheltov   20 Sep 2001 04:38:40   Re: :-(   Artur Penttinen   20 Sep 2001 19:02:40