--- db/prgsrc/db.cgi 2005/10/28 15:08:51 1.140 +++ db/prgsrc/db.cgi 2005/12/10 00:03:55 1.142 @@ -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);