db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.28, 2002/11/11 09:57:49	version 1.30, 2003/01/08 23:36:38
Line 36 use vars qw($opt_i);	Line 36 use vars qw($opt_i);

use Getopt::Std;	use Getopt::Std;
getopts('i');	getopts('i');
	#open STDERR, ">errors";
my $Interactive=$opt_i \|\| 0;	my $Interactive=$opt_i \|\| 0;


Line 143 sub SelectGroup {	Line 143 sub SelectGroup {
} else {	} else {
# Теперь, если файла нет в дереве турниров, никаких вопросов не	# Теперь, если файла нет в дереве турниров, никаких вопросов не
# задаётся, а вместо этого он добавляется в группу 9999	# задаётся, а вместо этого он добавляется в группу 9999
$ParentId = 9999;	$ParentId = 9999;
print UNSORTED "$source\n";	print UNSORTED "$source".((12 -length($source))x' ')."\t$TourName\n";
$isunsorted=1;	$isunsorted=1;
$sth = $dbh->prepare("INSERT INTO Tournaments	$sth = $dbh->prepare("INSERT INTO Tournaments
(Title, Type, ParentId, FileName)	(Title, Type, ParentId, FileName)