db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

Diff for /db/prgsrc/updatedb.pl between versions 1.24 and 1.39

version 1.24, 2002/01/15 03:34:31	version 1.39, 2004/01/11 00:14:32
Line 6 updatedb.pl - a script for creation of n	Line 6 updatedb.pl - a script for creation of n

=head1 SYNOPSIS	=head1 SYNOPSIS

updatedb.pl I<file1> I<file2>....	updatedb.pl B<[-i]> I<file1> I<file2>....


=head1 DESCRIPTION	=head1 DESCRIPTION

Updates information in the B<chgk> databse. Uses file	Updates information in the B<chgk> databse. Uses file

	=head1 OPTIONS

	=item B<-i>

	Ask about ParentId.


=head1 BUGS	=head1 BUGS

Line 26 Dmitry Rubinstein	Line 32 Dmitry Rubinstein

=cut	=cut

	use vars qw($opt_i);

	use Getopt::Std;
	my $unsortedname="../dump/unsorted";
	getopts('i');
	#open STDERR, ">errors";
	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',
'Jul', '7', 'Aug', '8', 'Sep', '9', 'Oct', '10', 'Nov', '11',	'Jul', '7', 'Aug', '8', 'Sep', '9', 'Oct', '10', 'Nov', '11',
Line 44 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,$CreatedAt) = @_;
if ($ParentId) {	if ($ParentId) {
my ($sth1) = $dbh->prepare("SELECT QuestionsNum, ParentId	my ($sth1) = $dbh->prepare("SELECT QuestionsNum, ParentId, CreatedAt
FROM Tournaments WHERE Id = $ParentId");	FROM Tournaments WHERE Id = $ParentId");
$sth1->execute;	$sth1->execute;
my ($q, $p) = ($sth1->fetchrow)[0, 1];	my ($q, $p,$c) = ($sth1->fetchrow)[0, 1, 2];
	$c=$CreatedAt if $CreatedAt && ($CreatedAt gt $c);
	my $qc=$dbh->quote($c);
$dbh->do("UPDATE Tournaments SET	$dbh->do("UPDATE Tournaments SET
QuestionsNum=$q + $all_qnum	QuestionsNum=$q + $all_qnum, CreatedAt=$qc
WHERE Id = $ParentId");	WHERE Id = $ParentId");
&UpdateParents($dbh, $p, $all_qnum);	&UpdateParents($dbh, $p, $all_qnum,$c);
}	}
}	}


sub getField {	sub getField {
my($desc, $dbh) = @_;	my($desc, $dbh) = @_;
my($key);	my($key);
Line 75 sub getField {	Line 93 sub getField {
$value =~ s/-(.*)-/-$month-/;	$value =~ s/-(.*)-/-$month-/;
$value =~ s/-00*$/-01/;	$value =~ s/-00*$/-01/;
}	}
	if ($key eq 'Автор') {$value=~s/\.$//;}
$value = $dbh->quote($value);	$value = $dbh->quote($value);
return ($key, $value);	return ($key, $value);
}	}
Line 101 sub getField {	Line 120 sub getField {
sub SelectGroup {	sub SelectGroup {
my ($dbh, $source, $TourName) = @_;	my ($dbh, $source, $TourName) = @_;
my ($sth, $ParentId, $i, @arr);	my ($sth, $ParentId, $i, @arr);

$sth = $dbh->prepare("SELECT Id, Title FROM	if ($Interactive) {
	$sth = $dbh->prepare("SELECT Id, Title FROM
Tournaments WHERE Type = 'Г'");	Tournaments WHERE Type = 'Г'");
$sth->execute;	$sth->execute;
print "Выберите группу для турнира:\n$TourName, файл $source\n\n";	print "Выберите группу для турнира:\n$TourName, файл $source\n\n";
while (@arr=$sth->fetchrow) {	while (@arr=$sth->fetchrow) {
print "[$arr[0]] $arr[1]\n";	print "[$arr[0]] $arr[1]\n";
}	}
$ParentId = <STDIN>;	$ParentId = <STDIN>;
chomp $ParentId;	chomp $ParentId;
if (!$ParentId) {	if (!$ParentId) {
print "Пропускаем файл $source\n";	print "Пропускаем файл $source\n";
print STDERR "Файл $source отвергнут оператором\n";	print STDERR "Файл $source отвергнут оператором\n";
return (0,0);	return (0,0);
	} else {
	print "Вы выбрали турнир: $ParentId\n";
	$sth = $dbh->prepare("INSERT INTO Tournaments
	(Title, Type, ParentId, FileName)
	VALUES ($TourName, 'Ч', $ParentId,
	$source)");
	$sth->execute;
	my $TournamentId = $sth->{mysql_insertid};
	return ($TournamentId,$ParentId);
	}
} else {	} else {
print "Вы выбрали турнир: $ParentId\n";	# Теперь, если файла нет в дереве турниров, никаких вопросов не
$sth = $dbh->prepare("INSERT INTO Tournaments	# задаётся, а вместо этого он добавляется в группу 9999
	$ParentId = 9999;
	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
(Title, Type, ParentId, FileName)	(Title, Type, ParentId, FileName)
VALUES ($TourName, 'Ч', $ParentId,	VALUES ($TourName, 'Ч', $ParentId,
$source)");	$source)");
$sth->execute;	$sth->execute;
my $TournamentId = $sth->{mysql_insertid};	my $TournamentId = $sth->{mysql_insertid};
return ($TournamentId,$ParentId);	return ($TournamentId,$ParentId);
}	}


}	}
Line 239 MAIN:	Line 277 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;
	open UNSORTED, ">$unsortedname";
while ($source = shift) {	while ($source = shift) {
	push @sources,glob($source);
	}
	foreach $source(@sources) {
my $TourNum=0;	my $TourNum=0;
my($PlayedAt) = '';	my($PlayedAt) = '';
my($QuestionId, $TourId, $TournamentId, $ParentId) = (0, 0, 0, 0);	my($QuestionId, $TourId, $TournamentId, $ParentId) = (0, 0, 0, 0);
my($tournum, $qnum, $all_qnum) = (0, 0, 0);	my($tournum, $qnum, $all_qnum) = (0, 0, 0);
my (@d) = (localtime((stat($source))[9]))[5,4,3];	my (@d) = (localtime((stat($source))[9]))[5,4,3];
$d[1]++;	$d[1]++;
	$d[1]=sprintf("%02d",$d[1]);
	$d[2]=sprintf("%02d",$d[2]);
$d[0]+=1900;	$d[0]+=1900;
my ($CreatedAt) = $dbh->quote( join('-', @d));	my $UnquotedCreated=join('-', @d);
	my ($CreatedAt) = $dbh->quote($UnquotedCreated);

open INFD, $source	open INFD, $source
or die "Can't open input file: $!\n";	or die "Can't open input file: $!\n";

$source =~ s/^.\/([^\/])$/$1/;	$source =~ s/^.\/([^\/])$/$1/;
	my $unquotedsource=$source;
	$unquotedsource=~s/\.txt\s*$//;
$source = $dbh->quote($source);	$source = $dbh->quote($source);
print STDERR "Файл: $source, дата: $CreatedAt ";	print STDERR "Файл: $source, дата: $CreatedAt ";
my %TourDefaults=('CreatedAt'=>$CreatedAt);	my %TourDefaults=('CreatedAt'=>$CreatedAt);
Line 282 MAIN:	Line 329 MAIN:
}	}
if ($key =~ /Тур/) {	if ($key =~ /Тур/) {
if ($TourId) {	if ($TourId) {
$dbh->do("UPDATE Tournaments SET QuestionsNum=$qnum
	$dbh->do("UPDATE Tournaments SET QuestionsNum=$qnum
WHERE Id=$TourId");	WHERE Id=$TourId");
}	}
$qnum = 0;	$qnum = 0;
$TourNum++;	$TourNum++;
	$TourDefaults{'FileName'}=$dbh->quote(
	"$unquotedsource.$TourNum"
	);
$TourId=CreateTour($dbh,$value,$TournamentId,$TourNum,	$TourId=CreateTour($dbh,$value,$TournamentId,$TourNum,
\%TourDefaults);	\%TourDefaults);
%QuestionDefaults=%QuestionGlobalDefaults;	%QuestionDefaults=%QuestionGlobalDefaults;
Line 321 MAIN:	Line 372 MAIN:
next;	next;
}	}


	if ($key =~ /Зач[её]т/) {
	&UpdateQuestion($dbh, $QuestionId, "PassCriteria", $value);
	next;
	}



if ($key =~ /Комментари/) {	if ($key =~ /Комментари/) {
&UpdateQuestion($dbh, $QuestionId, "Comments", $value);	&UpdateQuestion($dbh, $QuestionId, "Comments", $value);
next;	next;
}	}

	if ($key =~ /Вид/) {
	if ($value =~ /^\sД\s$/) {#Questions Д are really ЧД...
	$value = "ЧД";
	}
	&UpdateQuestion($dbh, $QuestionId, "Type", $value);
	next;
	}



my @Fields = grep { $key =~ /$_/ } keys %QuestionFields;	my @Fields = grep { $key =~ /$_/ } keys %QuestionFields;

Line 369 MAIN:	Line 438 MAIN:
WHERE Id=$TourId");	WHERE Id=$TourId");
$dbh->do("UPDATE Tournaments SET QuestionsNum=$all_qnum	$dbh->do("UPDATE Tournaments SET QuestionsNum=$all_qnum
WHERE Id=$TournamentId");	WHERE Id=$TournamentId");
&UpdateParents($dbh, $ParentId, $all_qnum);	&UpdateParents($dbh, $ParentId, $all_qnum,$UnquotedCreated);
print STDERR "Всего вопросов: $all_qnum \n";	print STDERR "Всего вопросов: $all_qnum \n";
}	}
	close UNSORTED;
	unlink $unsortedname unless $isunsorted;
$dbh->disconnect;	$dbh->disconnect;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.24
changed lines
	Added in v.1.39