version 1.26, 2002/11/11 09:06:23
|
version 1.34, 2003/02/07 23:20:15
|
Line 35 Dmitry Rubinstein
|
Line 35 Dmitry Rubinstein
|
use vars qw($opt_i); |
use vars qw($opt_i); |
|
|
use Getopt::Std; |
use Getopt::Std; |
|
my $unsortedname="../dump/unsorted"; |
getopts('i'); |
getopts('i'); |
|
#open STDERR, ">errors"; |
my $Interactive=$opt_i || 0; |
my $Interactive=$opt_i || 0; |
|
my $DUMPDIR = $ENV{DUMPDIR} || "../dump"; |
|
|
my (%RevMonths) = |
my (%RevMonths) = |
('Jan', '1', 'Feb', '2', 'Mar', '3', 'Apr', '4', 'May', '5', 'Jun', '6', |
('Jan', '1', 'Feb', '2', 'Mar', '3', 'Apr', '4', 'May', '5', 'Jun', '6', |
Line 58 my ($sth);
|
Line 59 my ($sth);
|
|
|
use DBI; |
use DBI; |
use strict; |
use strict; |
|
my $isunsorted=0; |
sub UpdateParents { |
sub UpdateParents { |
my ($dbh, $ParentId, $all_qnum) = @_; |
my ($dbh, $ParentId, $all_qnum) = @_; |
if ($ParentId) { |
if ($ParentId) { |
Line 143 sub SelectGroup {
|
Line 144 sub SelectGroup {
|
} else { |
} else { |
# Теперь, если файла нет в дереве турниров, никаких вопросов не |
# Теперь, если файла нет в дереве турниров, никаких вопросов не |
# задаётся, а вместо этого он добавляется в группу 9999 |
# задаётся, а вместо этого он добавляется в группу 9999 |
$ParentId = 9999; |
$ParentId = 9999; |
print UNSORTED $source; |
my $tempsource=$source; |
|
my $temptname=$TourName; |
|
$tempsource=~s/^\'(.*)\'$/$1/; |
|
$temptname=~s/^\'(.*)\'$/$1/; |
|
print UNSORTED "$tempsource".((12 -length($source))x' ')."\t$temptname\n"; |
|
$isunsorted=1; |
$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 268 MAIN:
|
Line 274 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"; |
open UNSORTED, ">$unsortedname"; |
while ($source = shift) { |
while ($source = shift) { |
push @sources,glob($source); |
push @sources,glob($source); |
} |
} |
Line 404 MAIN:
|
Line 410 MAIN:
|
&UpdateParents($dbh, $ParentId, $all_qnum); |
&UpdateParents($dbh, $ParentId, $all_qnum); |
print STDERR "Всего вопросов: $all_qnum \n"; |
print STDERR "Всего вопросов: $all_qnum \n"; |
} |
} |
|
close UNSORTED; |
|
unlink $unsortedname unless $isunsorted; |
$dbh->disconnect; |
$dbh->disconnect; |
} |
} |