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.16 and 1.23

version 1.16, 2000/10/22 23:47:06	version 1.23, 2002/01/12 05:01:36
Line 70 sub getField {	Line 70 sub getField {
chomp $key;	chomp $key;
if ($key eq 'Дата') {	if ($key eq 'Дата') {
$value =~ s/^(.)-(.)-(.*)$/$3-$2-$1/;	$value =~ s/^(.)-(.)-(.*)$/$3-$2-$1/;
my($month) = $RevMonths{$2} \|\| '000';	my($month) = $RevMonths{$2} \|\| '01';
$value =~ s/$2/$month/;	$value =~ s/-(.*)-/-$month-/;
	$value =~ s/-00*$/-01/;
}	}
	$value =~ s/\s+$//;
$value = $dbh->quote($value);	$value = $dbh->quote($value);
return ($key, $value);	return ($key, $value);
}	}
Line 89 sub getField {	Line 91 sub getField {
}	}
}	}
if ($key && $value) {	if ($key && $value) {
	$value=~s/\s+$//;
$value = $dbh->quote($value);	$value = $dbh->quote($value);
return ($key, $value);	return ($key, $value);
}	}
Line 199 sub GetTours {	Line 202 sub GetTours {
}	}

sub CreateTour {	sub CreateTour {
my ($dbh,$title,$ParentId,$rh_defaults)=@_;	my ($dbh,$title,$ParentId,$TourNum,$rh_defaults)=@_;
my $sth = $dbh->prepare("INSERT INTO Tournaments	my $sth = $dbh->prepare("INSERT INTO Tournaments
(Title, Type, ParentId)	(Title, Type, ParentId, Number)
VALUES ($title, 'Т', $ParentId)");	VALUES ($title, 'Т', $ParentId, $TourNum)");
$sth->execute;	$sth->execute;
my $TourId = $sth->{mysql_insertid};	my $TourId = $sth->{mysql_insertid};
while (my ($key,$value)=each %$rh_defaults) {	while (my ($key,$value)=each %$rh_defaults) {
Line 228 MAIN:	Line 231 MAIN:
#	#
my %QuestionFields = ('Тип'=> 'Type', 'Вид'=> 'Type',	my %QuestionFields = ('Тип'=> 'Type', 'Вид'=> 'Type',
'Автор' => 'Authors', 'Рейтинг'=>'Rating',	'Автор' => 'Authors', 'Рейтинг'=>'Rating',
'Источник' => 'Sources');	'Источник' => 'Sources',
	'Тема' => 'Topic');


my($source);	my($source);
Line 237 MAIN:	Line 241 MAIN:
or die "Can't connect to DB chgk\n";	or die "Can't connect to DB chgk\n";

while ($source = shift) {	while ($source = shift) {
	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);
Line 281 MAIN:	Line 286 MAIN:
WHERE Id=$TourId");	WHERE Id=$TourId");
}	}
$qnum = 0;	$qnum = 0;
$TourId=CreateTour($dbh,$value,$TournamentId,\%TourDefaults);	$TourNum++;
	$TourId=CreateTour($dbh,$value,$TournamentId,$TourNum,
	\%TourDefaults);
%QuestionDefaults=%QuestionGlobalDefaults;	%QuestionDefaults=%QuestionGlobalDefaults;
$QuestionId=0;	$QuestionId=0;
next;	next;
Line 289 MAIN:	Line 296 MAIN:
if ($key =~ /Вопрос/) {	if ($key =~ /Вопрос/) {
if (!$TourId) {	if (!$TourId) {
$qnum = 0;	$qnum = 0;
$TourId=CreateTour($dbh,'1',$TournamentId,	$TourNum++;
	$TourId=CreateTour($dbh,'1',$TournamentId,$TourNum,
\%TourDefaults);	\%TourDefaults);
%QuestionDefaults=%QuestionGlobalDefaults;	%QuestionDefaults=%QuestionGlobalDefaults;
}	}

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

Removed from v.1.16
changed lines
	Added in v.1.23