version 1.2, 2000/10/18 21:50:48
|
version 1.3, 2000/10/19 01:06:18
|
Line 16 Upadets metainformation in the B<chgk> d
|
Line 16 Upadets metainformation in the B<chgk> d
|
|
|
An example of the index file follows: |
An example of the index file follows: |
|
|
|
Авторские вопросы |
|
Виктор Байрак |
|
bayrak.txt Вопросы В.Байрака |
|
Борис Бурда |
|
burda.txt Вопросы Бориса Бурды |
|
burda1.txt Тренировки Бориса Бурды 1 |
|
burda10.txt Тренировки Бориса Бурды 10 |
|
burda11.txt Тренировки Бориса Бурды 11 |
|
burda12.txt Тренировки Бориса Бурды 12 |
|
|
|
|
=head1 BUGS |
=head1 BUGS |
|
|
Line 42 use DBI;
|
Line 52 use DBI;
|
MAIN: |
MAIN: |
{ |
{ |
my $USAGE="Usage: updateindex.pl -i indexfile\n"; |
my $USAGE="Usage: updateindex.pl -i indexfile\n"; |
getopts('hm:') or die $USAGE; |
getopts('hi:') or die $USAGE; |
if ($opt_h) { |
if ($opt_h) { |
print $USAGE; |
print $USAGE; |
exit 0; |
exit 0; |
Line 58 MAIN:
|
Line 68 MAIN:
|
chomp; |
chomp; |
s/
//; |
s/
//; |
next if (/^\s*$/); |
next if (/^\s*$/); |
if (s/^(\w*)//) { # File found |
if (s/^(\S+) *//) { # File found |
$filename = $1; |
$filename = $1; |
$depth = -1; |
$depth = -1; |
} else { # Group found |
} else { # Group found |
undef $filename; |
$filename = ''; |
$depth = -2; |
$depth = -2; |
} |
} |
s/^(\t*)//; |
s/^(\t*)//; |
Line 76 MAIN:
|
Line 86 MAIN:
|
my $ParentId = ($depth) ? $depthId[$depth - 1] : 0; |
my $ParentId = ($depth) ? $depthId[$depth - 1] : 0; |
my $sth; |
my $sth; |
my $type; |
my $type; |
if (defined $filename) { |
if ($filename) { |
$type=$dbh->quote('Ч'); |
$type=$dbh->quote('Ч'); |
$filename = $dbh->quote($filename); |
$filename = $dbh->quote($filename); |
$sth = $dbh->prepare("SELECT Id FROM Tournaments |
$sth = $dbh->prepare("SELECT Id FROM Tournaments |
Line 88 MAIN:
|
Line 98 MAIN:
|
} |
} |
$sth = $dbh->prepare("INSERT INTO Tournaments |
$sth = $dbh->prepare("INSERT INTO Tournaments |
(Title, ParentId, FileName, Type) |
(Title, ParentId, FileName, Type) |
VALUES ($title, $ParentId, $filename, $type;)"); |
VALUES ($title, $ParentId, $filename, $type)"); |
$sth->execute; |
$sth->execute; |
} else { |
} else { |
$sth->execute; |
$type=$dbh->quote('Г'); |
$sth = $dbh->prepare("SELECT Id FROM Tournaments |
$sth = $dbh->prepare("SELECT Id FROM Tournaments |
WHERE Title=$title"); |
WHERE Title=$title"); |
$type=$dbh->quote('Г'); |
|
|
$sth->execute; |
if ($sth->fetchrow) { |
if ($sth->fetchrow) { |
print "$title is already in the DB!\n"; |
print "$title is already in the DB!\n"; |
next; |
next; |
} |
} |
$sth = $dbh->prepare("INSERT INTO Tournaments |
$sth = $dbh->prepare("INSERT INTO Tournaments |
(Title, ParentId, Type) |
(Title, ParentId, Type) |
VALUES ($title, $ParentId, $type;)"); |
VALUES ($title, $ParentId, $type)"); |
$sth->execute; |
$sth->execute; |
my $Id = $sth->{'mysql_insertid'}; |
my $Id = $sth->{'mysql_insertid'}; |
$depthId[$depth] = $Id; |
$depthId[$depth] = $Id; |