version 1.46, 2009/05/24 10:10:17
|
version 1.47, 2010/04/24 18:04:14
|
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>; |
Line 304 MAIN:
|
Line 308 MAIN:
|
|
|
my($source); |
my($source); |
|
|
my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "") |
my($dbh) = DBI->connect("DBI:mysql:db_drupal", "root", "") |
or die "Can't connect to DB chgk\n"; |
or die "Can't connect to DB chgk\n"; |
if ($dbh->get_info( 18 )=~/^(5|(4.1))/) {$dbh->do("SET NAMES 'koi8r'");} |
if ($dbh->get_info( 18 )=~/^(5|(4.1))/) {$dbh->do("SET NAMES 'koi8r'");} |
my @sources; |
my @sources; |