db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.140, 2005/10/28 15:08:51	version 1.142, 2005/12/10 00:03:55
Line 1982 MAIN:	Line 1982 MAIN:
my $texttour=$tour;	my $texttour=$tour;
my ($sth,$dbh);	my ($sth,$dbh);
my($dsn) = "DBI:mysql:database=$dbname;host=$dbhost";	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)	# $dbh = DBI->connect("DBI:mysql:$dbname", $username, $dbpass)
or do {	or do {
print header.h1("Временные проблемы") . "База вопросов временно не	print header.h1("Временные проблемы") . "База вопросов временно не
Line 1994 MAIN:	Line 1994 MAIN:


if (param('qid') && (param('qid')=~/^\d+$/) \|\| $tour && $tour=~/^\d+$/) {	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',	# print header (-'Content-Type' => 'text/html',
# -'Location:'=> 'http:\\db.chgk.info');	# -'Location:'=> 'http:\\db.chgk.info');
Redirect($destination);	Redirect($destination);