--- db/prgsrc/db.cgi 2005/02/26 11:03:41 1.139 +++ db/prgsrc/db.cgi 2005/12/10 00:03:55 1.142 @@ -433,9 +433,9 @@ action="/znatoki/cgi-bin/db.cgi"> -

Если при попытке поиска выдаётся сообщение об ошибке, + EOT @@ -1982,7 +1982,7 @@ MAIN: my $texttour=$tour; my ($sth,$dbh); my($dsn) = "DBI:mysql:database=$dbname;host=$dbhost"; - $dbh = DBI->connect($dsn, $dbuser, $dbpass) + $dbh = DBI->connect($dsn, $dbuser, $dbpass) # $dbh = DBI->connect("DBI:mysql:$dbname", $username, $dbpass) or do { print header.h1("Временные проблемы") . "База вопросов временно не @@ -1994,7 +1994,7 @@ MAIN: if (param('qid') && (param('qid')=~/^\d+$/) || $tour && $tour=~/^\d+$/) { - my $destination='http://chgk.zaba.ru/search.html'; +# my $destination='http://chgk.zaba.ru/search.html'; # print header (-'Content-Type' => 'text/html', # -'Location:'=> 'http:\\db.chgk.info'); Redirect($destination);