db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.25, 2002/11/09 01:47:23	version 1.26, 2002/11/11 09:06:23
Line 144 sub SelectGroup {	Line 144 sub SelectGroup {
# Теперь, если файла нет в дереве турниров, никаких вопросов не	# Теперь, если файла нет в дереве турниров, никаких вопросов не
# задаётся, а вместо этого он добавляется в группу 9999	# задаётся, а вместо этого он добавляется в группу 9999
$ParentId = 9999;	$ParentId = 9999;
print STDERR "INSERT INTO Tournaments	print UNSORTED $source;
(Title, Type, ParentId, FileName)
VALUES ($TourName, 'Ч', $ParentId,
$source)";
$sth = $dbh->prepare("INSERT INTO Tournaments	$sth = $dbh->prepare("INSERT INTO Tournaments
(Title, Type, ParentId, FileName)	(Title, Type, ParentId, FileName)
VALUES ($TourName, 'Ч', $ParentId,	VALUES ($TourName, 'Ч', $ParentId,
Line 271 MAIN:	Line 268 MAIN:
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";
my @sources;	my @sources;
	open UNSORTED, ">unsorted";
while ($source = shift) {	while ($source = shift) {
push @sources,glob($source);	push @sources,glob($source);
}	}