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); |
} |
} |