db/prgsrc/updateindex.pl - diff

Return to updateindex.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.10, 2005/12/10 00:03:55	version 1.12, 2008/11/14 11:23:03
Line 93 MAIN:	Line 93 MAIN:
my $filename;	my $filename;
my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "")	my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "")
or die "Can't connect to DB chgk\n";	or die "Can't connect to DB chgk\n";
$dbh->do("SET NAMES 'koi8r'");	if ($dbh->get_info( 18 )=~/^(5\|(4.1))/) {$dbh->do("SET NAMES 'koi8r'");}
if ($source) {	if ($source) {
open INFO, $source or die "Can't open input file: $!\n";	open INFO, $source or die "Can't open input file: $!\n";
} else {	} else {
Line 139 MAIN:	Line 139 MAIN:
$dbh->do("DELETE FROM Tournaments WHERE QuestionsNum=0");	$dbh->do("DELETE FROM Tournaments WHERE QuestionsNum=0");
}	}
$dbh->do("INSERT INTO Tournaments	$dbh->do("INSERT INTO Tournaments
(Id, Title, ParentId, Type)	(Id, Title, ParentId, Type,CreatedAt)
VALUES	VALUES
(9999, 'Несортированные турниры', 0,'Г')");	(9999, 'Несортированные турниры', 0,'Г',NOW())");

$dbh->disconnect;	$dbh->disconnect;
}	}
Line 192 sub CheckId {	Line 192 sub CheckId {

} else {	} else {
$sth = $dbh->prepare("INSERT INTO Tournaments	$sth = $dbh->prepare("INSERT INTO Tournaments
(Title, ParentId, Type)	(Title, ParentId, Type,CreatedAt)
VALUES	VALUES
($title, $ParentId,$type)");	($title, $ParentId,$type,NOW())");
}	}
$sth->execute or die $dbh->errstr;	$sth->execute or die $dbh->errstr;
if (!$Id) {	if (!$Id) {