version 1.96, 2003/04/10 00:05:04
|
version 1.98, 2003/04/14 23:52:12
|
Line 23 $outputkvo=100 if $outputkvo>100;
|
Line 23 $outputkvo=100 if $outputkvo>100;
|
|
|
if (param('debug')) {$debug=1; $printqueries=1} |
if (param('debug')) {$debug=1; $printqueries=1} |
*STDERR=*STDOUT if $debug; |
*STDERR=*STDOUT if $debug; |
if ($url !~ /db\.chgk\.info/ && $url !~ /localhost/ ) { |
if ($url !~ /db\.chgk\.info/ && $url !~ /(localhost)||(bilbo)/ ) { |
my $u="http://db.chgk.info/cgi-bin/db.cgi?$qs"; |
my $u="http://db.chgk.info/cgi-bin/db.cgi?$qs"; |
Redirect ($u); |
Redirect ($u); |
exit; |
exit; |
} |
} |
|
if (!param('sstr') && param('all')) { |
|
my $destination='http://db.chgk.info/all.html'; |
|
Redirect($destination); |
|
exit; |
|
} |
my $thislocale; |
my $thislocale; |
if ($^O =~ /win/i) { |
if ($^O =~ /win/i) { |
$thislocale = "Russian_Russia.20866"; |
$thislocale = "Russian_Russia.20866"; |
Line 1817 th {font-size: x-small; font-family : sa
|
Line 1822 th {font-size: x-small; font-family : sa
|
$globaloutput.=&Include_virtual("../dimrub/db/reklama.html"); |
$globaloutput.=&Include_virtual("../dimrub/db/reklama.html"); |
} |
} |
|
|
if (length ($qs)<=255 && $qs !~ /(sstr)|(rand)|(comp)/i) { |
if (length ($qs)<=255 && $qs !~ /(sstr)|(rand)|(comp)|(all=)/i) { |
my $sth=$dbh->prepare("SELECT page,times,t from hash where query=".$dbh->quote($qs)); |
my $sth=$dbh->prepare("SELECT page,times,t from hash where query=".$dbh->quote($qs)); |
$sth->execute(); |
$sth->execute(); |
my ($p,$times,$t)=$sth->fetchrow(); |
my ($p,$times,$t)=$sth->fetchrow(); |
Line 1857 th {font-size: x-small; font-family : sa
|
Line 1862 th {font-size: x-small; font-family : sa
|
else |
else |
{ |
{ |
$sth = $dbh->prepare("SELECT Id FROM Tournaments |
$sth = $dbh->prepare("SELECT Id FROM Tournaments |
WHERE FileName = '$tour.txt'"); |
WHERE FileName = '$tour.txt' OR |
|
FileName = '$tour'"); |
} |
} |
$sth->execute; |
$sth->execute; |
$tour = ($sth->fetchrow)[0]; |
$tour = ($sth->fetchrow)[0]; |
Line 1910 EOT
|
Line 1916 EOT
|
elsif (param('getfile')){ |
elsif (param('getfile')){ |
$globaloutput.=&writefile |
$globaloutput.=&writefile |
} elsif (param('all')) { |
} elsif (param('all')) { |
$globaloutput.=&PrintAll($dbh, 0); |
my $destination='http://db.chgk.info/all.html'; |
|
Redirect($destination); |
|
exit; |
|
# $globaloutput.=&PrintAll($dbh, 0); |
} elsif (param('from_year') && param('to_year')) { |
} elsif (param('from_year') && param('to_year')) { |
$globaloutput.=&PrintDates($dbh); |
$globaloutput.=&PrintDates($dbh); |
} elsif (param('comp')) { |
} elsif (param('comp')) { |