version 1.46, 2009/05/24 10:10:17
|
version 1.48, 2010/04/24 18:13:03
|
Line 32 Dmitry Rubinstein
|
Line 32 Dmitry Rubinstein
|
|
|
=cut |
=cut |
|
|
use vars qw($opt_i); |
use vars qw($opt_i, $opt_n); |
|
|
use Getopt::Std; |
use Getopt::Std; |
my $unsortedname="../dump/unsorted"; |
my $unsortedname="../dump/unsorted"; |
getopts('i'); |
getopts('in'); |
#open STDERR, ">errors"; |
#open STDERR, ">errors"; |
my $Interactive=$opt_i || 0; |
my $Interactive=$opt_i || 0; |
|
my $newOnly = $opt_n ||0; |
my $DUMPDIR = $ENV{DUMPDIR} || "../dump"; |
my $DUMPDIR = $ENV{DUMPDIR} || "../dump"; |
|
|
my (%RevMonths) = |
my (%RevMonths) = |
Line 172 sub SelectGroup {
|
Line 173 sub SelectGroup {
|
$sth = $dbh->prepare("INSERT INTO Tournaments |
$sth = $dbh->prepare("INSERT INTO Tournaments |
(Title, Type, ParentId, FileName,CreatedAt) |
(Title, Type, ParentId, FileName,CreatedAt) |
VALUES (".$dbh->quote($TourName).", 'Ч', $ParentId, |
VALUES (".$dbh->quote($TourName).", 'Ч', $ParentId, |
$source,NOW())"); |
?,NOW())"); |
$sth->execute; |
$sth->execute($source); |
my $TournamentId = $sth->{mysql_insertid}; |
my $TournamentId = $sth->{mysql_insertid}; |
return ($TournamentId,$ParentId); |
return ($TournamentId,$ParentId); |
} |
} |
Line 220 sub CheckFile {
|
Line 221 sub CheckFile {
|
} |
} |
my($Id,$ParentId,$QuestionsNum)=@arr; |
my($Id,$ParentId,$QuestionsNum)=@arr; |
if($QuestionsNum) { |
if($QuestionsNum) { |
|
if ($newOnly) { |
|
return (0,0); |
|
} |
print "Файл $source с данными $title уже существует. ", |
print "Файл $source с данными $title уже существует. ", |
"Заменить?[y/N]\n"; |
"Заменить?[y/N]\n"; |
my $answer = <STDIN>; |
my $answer = <STDIN>; |