version 1.8, 2002/11/09 01:46:24
|
version 1.9, 2003/04/14 20:06:59
|
Line 88 MAIN:
|
Line 88 MAIN:
|
$REMOVE=1; |
$REMOVE=1; |
} |
} |
my($source) = $opt_i; |
my($source) = $opt_i; |
|
my $champ; |
my($depth, @depthId); |
my($depth, @depthId); |
my $filename; |
my $filename; |
my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "") |
my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "") |
Line 103 MAIN:
|
Line 104 MAIN:
|
chomp; |
chomp; |
s/
//; |
s/
//; |
next if (/^\s*$/); |
next if (/^\s*$/); |
if (s/^(\S+) *//) { # File found |
if (s/^(\S+\.txt) *//) { # File found |
$filename = $1; |
$filename = $1; |
$depth = -1; |
$depth = -1; |
|
$champ=1; |
} else { # Group found |
} else { # Group found |
$filename = ''; |
if (s/^(\S+)//) |
|
{ $filename = $1;} |
|
else |
|
{$filename = ''} |
$depth = -2; |
$depth = -2; |
|
$champ=0; |
} |
} |
s/^(\t*)//; |
s/^(\t*)//; |
$depth += length($1); |
$depth += length($1); |
Line 120 MAIN:
|
Line 126 MAIN:
|
my $title = $_; |
my $title = $_; |
my $ParentId = ($depth) ? $depthId[$depth - 1] : 0; |
my $ParentId = ($depth) ? $depthId[$depth - 1] : 0; |
my $Id = CheckId($dbh,$title,$ParentId,$decision,$filename); |
my $Id = CheckId($dbh,$title,$ParentId,$decision,$filename); |
if (!$Id || $filename) { |
if (!$Id || $champ) { |
next; |
next; |
} |
} |
$depthId[$depth] = $Id; |
$depthId[$depth] = $Id; |
Line 146 sub CheckId {
|
Line 152 sub CheckId {
|
my $type; |
my $type; |
my $key; |
my $key; |
my $value; |
my $value; |
my $Id = 0; |
my $Id = 0; |
if ($filename) { |
if ($filename && $filename=~/\.txt/) { |
$type=$dbh->quote('þ'); |
$type=$dbh->quote('þ'); |
$key = "FileName"; |
} else {$type=$dbh->quote('ç');} |
$value = $dbh->quote($filename); |
if ($filename) |
|
{ |
|
$key = "FileName"; |
|
$value = $dbh->quote($filename); |
} else { |
} else { |
$type=$dbh->quote('ç'); |
$key = "Title"; |
$key = "Title"; |
$value = $dbh->quote($title); |
$value = $dbh->quote($title); |
|
} |
} |
|
|
$title=$dbh->quote($title); |
$title=$dbh->quote($title); |
my $sth = $dbh->prepare("SELECT Id FROM Tournaments |
my $sth = $dbh->prepare("SELECT Id FROM Tournaments |
WHERE $key=$value"); |
WHERE $key=$value"); |