version 1.98, 2003/04/14 23:52:12
|
version 1.115, 2003/04/22 10:50:37
|
Line 6 use strict;
|
Line 6 use strict;
|
use Time::Local; |
use Time::Local; |
use POSIX qw(locale_h); |
use POSIX qw(locale_h); |
use locale; |
use locale; |
|
use vars qw($opt_z); |
|
use Getopt::Std; |
|
getopts('z'); |
|
my $withanswers=param('answer')||param('answers'); |
open STDERR, ">/var/tmp/errors1"; |
open STDERR, ">/var/tmp/errors1"; |
my $newsurl='http://news.chgk.info/'; |
my $newsurl='http://news.chgk.info/'; |
|
my $reklama="../dimrub/db/reklama.html"; |
|
$reklama="../reklama.html" if $opt_z; |
|
my $HTMLDIR="/znatoki/dimrub/db/baza/"; |
|
my $realHTMLDIR; |
|
if ($^O =~ /win/i) { |
|
$realHTMLDIR="/html/znatoki/baza/"; |
|
} else |
|
{ |
|
$realHTMLDIR="/home/znatoki/public_html/dimrub/db/baza/"; |
|
} |
|
my $usehtml=$opt_z||0; |
my $usewas=0; |
my $usewas=0; |
my $cashednumber=500; |
my $cashednumber=500; |
my $outputnumber=10; |
my $outputnumber=10; |
my ($proxyptext,$proxysstr); |
my ($proxyptext,$proxysstr); |
my $printqueries=0; |
my $printqueries=0; |
my $url=url; |
my $url=url||''; |
my $qs=query_string; |
my $qs=query_string; |
my $globaloutput; |
my $globaloutput; |
my %forbidden=(); |
my %forbidden=(); |
Line 23 $outputkvo=100 if $outputkvo>100;
|
Line 38 $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)||(bilbo)/ ) { |
if ($url !~ /db\.chgk\.info/ && $url !~ /localhost/ && $url !~ /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; |
Line 92 my @months=('000','Jan',"Feb","Mar","Apr
|
Line 107 my @months=('000','Jan',"Feb","Mar","Apr
|
sub NewEnough { |
sub NewEnough { |
my ($a) = @_; |
my ($a) = @_; |
my ($year, $month, $day) = split('-', $a); |
my ($year, $month, $day) = split('-', $a); |
|
$month=1 if ($month<=0); |
|
$day=1 if ($day<=0); |
return (time - timelocal(0, 0, 0, $day, $month -1, $year) < $TMSECS); |
return (time - timelocal(0, 0, 0, $day, $month -1, $year) < $TMSECS); |
} |
} |
|
|
Line 204 sub GetQuestion {
|
Line 220 sub GetQuestion {
|
return %Question; |
return %Question; |
} |
} |
|
|
|
sub tourhref { |
|
my ($t,$a,$gr)=@_; |
|
my $res; |
|
if ($usehtml) { |
|
$res=$t; |
|
$res.=$a?"-a":"-q" unless $gr; |
|
$res.=".html"; |
|
$res=~s/(\#\d+)(.*)$/$2$1/; |
|
$res="$HTMLDIR$res" unless $opt_z; |
|
return $res; |
|
} else { |
|
$res=$url; |
|
$res.="?tour=$t"; |
|
$res.=$a?"&answers=1":""; |
|
return $res; |
|
} |
|
|
|
} |
|
|
# Gets numbers of all the questions from the given tour. |
# Gets numbers of all the questions from the given tour. |
sub GetTourQuestions { |
sub GetTourQuestions { |
my ($dbh, $ParentId) = @_; |
my ($dbh, $ParentId) = @_; |
Line 718 sub PrintList {
|
Line 753 sub PrintList {
|
{ |
{ |
$nav.= |
$nav.= |
(" "x4). |
(" "x4). |
a({href=>url."?".$qs."\&first=1"},"<<").(" "x4). |
a({href=>$url."?".$qs."\&first=1"},"<<").(" "x4). |
a({href=>(url."?".$qs."\&first=".($first-$outputkvo))},"<").(" "x4) |
a({href=>($url."?".$qs."\&first=".($first-$outputkvo))},"<").(" "x4) |
} |
} |
else {$nav.=' 'x15;} |
else {$nav.=' 'x15;} |
|
|
Line 761 sub PrintList {
|
Line 796 sub PrintList {
|
$l=$fkvo if $l>$fkvo+1; |
$l=$fkvo if $l>$fkvo+1; |
if ($f==$first) {$nav.="[$f-$l] ";} |
if ($f==$first) {$nav.="[$f-$l] ";} |
else { |
else { |
$nav.= "[".a({href=>(url."?".$qs."\&first=$f")},"$f-$l")."] ";} |
$nav.= "[".a({href=>($url."?".$qs."\&first=$f")},"$f-$l")."] ";} |
} |
} |
if ($lprint+$outputkvo<$fkvo) |
if ($lprint+$outputkvo<$fkvo) |
{ |
{ |
$nav.= |
$nav.= |
(" "x4). |
(" "x4). |
a({href=>(url."?".$qs."\&first=".($first+$outputkvo))},">").(" "x4). |
a({href=>($url."?".$qs."\&first=".($first+$outputkvo))},">").(" "x4). |
a({href=>url."?".$qs."\&first=$llprint"},">>").(" "x4) |
a({href=>$url."?".$qs."\&first=$llprint"},">>").(" "x4) |
} |
} |
$Output.= "$nav".br."\n"; |
$Output.= "$nav".br."\n"; |
my @q=@$Questions[$first-1..$last-1]; |
my @q=@$Questions[$first-1..$last-1]; |
Line 943 sub PrintTournament {
|
Line 978 sub PrintTournament {
|
%Tournament = &GetTournament($dbh, $Id) if ($Id); |
%Tournament = &GetTournament($dbh, $Id) if ($Id); |
|
|
my ($URL) = $Tournament{'URL'}; |
my ($URL) = $Tournament{'URL'}; |
$URL=~s/http:\/znatoki\/boris\/reports\//$newsurl/ if url=~/kulichki/; |
$URL=~s/http:\/znatoki\/boris\/reports\//$newsurl/ if $url=~/kulichki/; |
$URL=~s/\/znatoki\/boris\/reports\//$newsurl/ if url=~/kulichki/;; |
$URL=~s/\/znatoki\/boris\/reports\//$newsurl/ if url=~/kulichki/;; |
my ($Info) = $Tournament{'Info'}; |
my ($Info) = $Tournament{'Info'}; |
my ($Copyright) = $Tournament{'Copyright'}; |
my ($Copyright) = $Tournament{'Copyright'}; |
Line 998 sub PrintTournament {
|
Line 1033 sub PrintTournament {
|
} else { |
} else { |
$qnum = ''; |
$qnum = ''; |
} |
} |
if ($Tournament{'Type'} =~ /Г/) { |
if ($Tournament{'Type'} !~ /[ТЧ]/) { |
$SingleTour=0; |
$SingleTour=0; |
$imgsrc = "/icons/folder.gif"; |
$imgsrc = "/icons/folder.gif"; |
$alt = "[*]"; |
$alt = "[*]"; |
Line 1020 sub PrintTournament {
|
Line 1055 sub PrintTournament {
|
else {$textid=$Tournament{'Id'}}; |
else {$textid=$Tournament{'Id'}}; |
|
|
|
|
if ($SingleTour or $Tournament{'Type'} =~ /Т/) { |
if ($SingleTour or ($Tournament{'Type'} =~ /Т/)) { |
$list .= dd(img({src=>$imgsrc, alt=>$alt}) |
$list .= dd(img({src=>$imgsrc, alt=>$alt}) |
. " " . $Tournament{'Title'} . " " . |
. " " . $Tournament{'Title'} . " " . |
$Tournament{'PlayedAt'} . $qnum) . |
($Tournament{'PlayedAt'}||"") . $qnum) . |
dl( |
dl( |
dd("[" |
dd("[" |
. a({href=>url . "?tour=$textid&answer=0"}, |
. a({href=>tourhref($textid,0)}, |
"вопросы") . "] [" |
"вопросы") . "] [" |
. a({href=>url . "?tour=$textid&answer=1"}, |
. a({href=>tourhref($textid,1)}, |
"вопросы + ответы") . "]") |
"вопросы + ответы") . "]") |
); |
); |
} else { |
} else { |
$list .= dd(a({href=>url . "?tour=$textid&comp=1"}, |
$list .= dd(a({href=> |
img({src=>'/icons/compressed.gif', alt=>'[ZIP]', border=>1})). " " . |
$url . "?tour=$textid&comp=1"}, |
|
img({src=>'/icons/compressed.gif', alt=>'[ZIP]', border=>1})). |
|
" " . |
img({src=>$imgsrc, alt=>$alt}) |
img({src=>$imgsrc, alt=>$alt}) |
. " " . a({href=>url . "?tour=$textid&answer=0"}, |
. " " . a({href=>tourhref($textid,0,1)}, |
$Tournament{'Title'}. " ". |
$Tournament{'Title'}. " ". |
$Tournament{'PlayedAt'}||'') . $qnum); |
($Tournament{'PlayedAt'}||'')) . $qnum); |
} |
} |
} |
} |
$output .= dl($list); |
$output .= dl($list); |
|
|
if ($URL) { |
if ($URL) { |
if (url=~/zaba\.ru/ && $URL=~/^\//){$URL="http://info.chgk.info$URL"} |
if ($url=~/zaba\.ru/ && $URL=~/^\//){$URL="http://info.chgk.info$URL"} |
$output .= |
$output .= |
p("Дополнительная информация об этом турнире - по адресу " . |
p("Дополнительная информация об этом турнире - по адресу " . |
a({-'href'=>$URL}, $URL)); |
a({-'href'=>$URL}, $URL)); |
Line 1140 sub PrintTour {
|
Line 1177 sub PrintTour {
|
my $n=$Tour{'Number'}; |
my $n=$Tour{'Number'}; |
if ($answer == 0) { |
if ($answer == 0) { |
$bottom .= |
$bottom .= |
"[" . a({href=>url . "?tour=$fname.$n&answer=1"}, "ответы") . "] " . br; |
"[" . a({href=>tourhref($fname,1)}, |
|
"ответы") . "] " . br; |
} |
} |
if ($n>1) { |
if ($n>1) { |
$bottom .= |
$bottom .= |
"[" . a({href=>url . "?tour=$fname." . ($n - 1) . "&answer=0"}, |
"[" . a({href=>tourhref("$fname.".($n-1),0)}, |
"предыдущий тур") . "] "; |
"предыдущий тур") . "] "; |
$bottom .= |
$bottom .= |
"[" . a({href=>url . "?tour=$fname." . ($n - 1) . "&answer=1"}, |
"[" . a({href=>tourhref("$fname.".($n-1),1)}, |
"предыдущий тур с ответами") . "] " . br; |
"предыдущий тур с ответами") . "] " . br; |
} |
} |
if (&IsTour($dbh, $Tour{'ParentId'}, $n + 1)) { |
if (&IsTour($dbh, $Tour{'ParentId'}, $n + 1)) { |
$bottom .= |
$bottom .= |
"[" . a({href=>url . "?tour=$fname." . ($n + 1) . "&answer=0"}, |
"[" . a({href=>tourhref("$fname.".($n+1),0)}, |
"следующий тур") . "] "; |
"следующий тур") . "] "; |
$bottom .= |
$bottom .= |
"[" . a({href=>url . "?tour=$fname." . ($n + 1) . "&answer=1"}, |
"[" . a({href=>tourhref("$fname.".($n+1),1)}, |
"следующий тур с ответами") . "] "; |
"следующий тур с ответами") . "] "; |
} |
} |
|
|
Line 1215 sub PrintQuestion {
|
Line 1253 sub PrintQuestion {
|
$fname=~s/\.txt//; |
$fname=~s/\.txt//; |
$titles .= |
$titles .= |
dd(img({src=>"/icons/folder.open.gif"}) . " " . |
dd(img({src=>"/icons/folder.open.gif"}) . " " . |
a({href=>url . "?tour=$fname"}, $Question{'Title'}, $Question{'PlayedAt'}||'')); |
a({href=>tourhref($fname,0,1)}, |
|
$Question{'Title'}, $Question{'PlayedAt'}||'')); |
$titles .= |
$titles .= |
dl(dd(img({src=>"/icons/folder.open.gif"}) . " " . |
dl(dd(img({src=>"/icons/folder.open.gif"}) . " " . |
a({href=>url . "?tour=$fname.$Question{TourNumber}#$qnum"}, $Question{'TourTitle'}))); |
a({href=>tourhref("$fname.$Question{'TourNumber'}#$qnum",1)}, |
|
$Question{'TourTitle'}))); |
} |
} |
$output .= dl(strong($titles)); |
$output .= dl(strong($titles)); |
} |
} |
Line 1316 $output.="</span>"
|
Line 1356 $output.="</span>"
|
$output=~s/\(pic: ([^\)]*)\)/<p><img src="\/znatoki\/images\/db\/$1"><p>/g unless $text; |
$output=~s/\(pic: ([^\)]*)\)/<p><img src="\/znatoki\/images\/db\/$1"><p>/g unless $text; |
my $qid=param('tour') ? (param('tour').".$Question{'Number'}" ): ''; |
my $qid=param('tour') ? (param('tour').".$Question{'Number'}" ): ''; |
|
|
$output.=br.a({href=> url."?metod=proxy& |
$output.=br.a({href=> $url."?metod=proxy& |
qid=$qid"}, 'Близкие вопросы').p |
qid=$qid"}, 'Близкие вопросы').p |
if $answer>0 && !$text && $qid; |
if $answer>0 && !$text && $qid; |
return $output; |
return $output; |
Line 1379 sub Get12Random {
|
Line 1419 sub Get12Random {
|
|
|
sub Include_virtual { |
sub Include_virtual { |
my ($fn, $output) = (@_, ''); |
my ($fn, $output) = (@_, ''); |
|
return "<!--#include virtual=\"$fn\"-->" if ($opt_z); |
open F , $fn |
open F , $fn |
or return; #die "Can't open the file $fn: $!\n"; |
or return ""; #die "Can't open the file $fn: $!\n"; |
|
|
while (<F>) { |
while (<F>) { |
if (/<!--#include/o) { |
if (/<!--#include/o) { |
Line 1392 sub Include_virtual {
|
Line 1432 sub Include_virtual {
|
} |
} |
$output .= $_; |
$output .= $_; |
} |
} |
return $output; |
return $output||""; |
} |
} |
|
|
sub PrintArchive { |
sub PrintArchive { |
Line 1417 sub PrintAll {
|
Line 1457 sub PrintAll {
|
|
|
my (%Tournament) = &GetTournament($dbh, $Id); |
my (%Tournament) = &GetTournament($dbh, $Id); |
my (@Tours) = &GetTours($dbh, $Id); |
my (@Tours) = &GetTours($dbh, $Id); |
|
my $SingleTour = $#Tours == 0; |
|
|
my ($New) = ($Id and $Tournament{'Type'} eq 'Ч' and |
my ($New) = ($Id and $Tournament{'Type'} eq 'Ч' and |
&NewEnough($Tournament{"CreatedAt"})) ? |
&NewEnough($Tournament{"CreatedAt"})) ? |
img({src=>"/znatoki/dimrub/db/new-sml.gif", alt=>"NEW!"}) : ""; |
img({src=>"/znatoki/dimrub/db/new-sml.gif", alt=>"NEW!"}) : ""; |
Line 1438 sub PrintAll {
|
Line 1480 sub PrintAll {
|
|
|
|
|
$output .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) . |
$output .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) . |
" " . a({href=>url . "?tour=$textid&answer=0"}, |
" " . a({href=>tourhref($textid,0,!$SingleTour)}, |
$Tournament{'Title'}) ." " . ($Tournament{'PlayedAt'}||'') . " $New"); |
$Tournament{'Title'}) ." " . ($Tournament{'PlayedAt'}||'') . " $New"); |
} |
} |
if ($Id == 0 or $Tournament{'Type'} =~ /Г/ or $Tournament{'Type'} eq '') { |
if ($Id == 0 or $Tournament{'Type'} =~ /Г/ or $Tournament{'Type'} eq '') { |
Line 1472 sub PrintDates {
|
Line 1514 sub PrintDates {
|
if (!$array[0]); |
if (!$array[0]); |
%Tournament = &GetTournament($dbh, $array[0]); |
%Tournament = &GetTournament($dbh, $array[0]); |
$list .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) . |
$list .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) . |
" " . a({href=>url . "?tour=$Tournament{'Id'}&answer=0"}, |
" " . a({href=>tourhref($Tournament{'FileName'},0,1)}, |
$Tournament{'Title'}, $Tournament{'PlayedAt'}||'')); |
$Tournament{'Title'}, $Tournament{'PlayedAt'}||'')); |
} |
} |
$sth->finish; |
$sth->finish; |
Line 1553 sub PrintAuthors
|
Line 1595 sub PrintAuthors
|
|
|
|
|
$sth->execute; |
$sth->execute; |
$output.=Tr(th[a({href=>url."?authors=name"},"Имя") |
$output.=Tr(th[a({href=>$url."?authors=name"},"Имя") |
.", ". |
.", ". |
a({href=>url."?authors=surname"},"фамилия") |
a({href=>$url."?authors=surname"},"фамилия") |
, a({href=>url."?authors=kvo"},"Количество вопросов")]); |
, a({href=>$url."?authors=kvo"},"Количество вопросов")]); |
|
|
$out1=''; |
$out1=''; |
|
|
Line 1572 a({href=>url."?authors=surname"},"фамили
|
Line 1614 a({href=>url."?authors=surname"},"фамили
|
if (!$name || !$surname) { |
if (!$name || !$surname) { |
} else |
} else |
{ |
{ |
my $add=Tr(td([a({href=>url."?qofauthor=$id"},"$name $surname"), $kvo]))."\n"; |
my $add=Tr(td([a({href=>$url."?qofauthor=$id"},"$name $surname"), $kvo]))."\n"; |
$output.=$add; |
$output.=$add; |
} |
} |
} |
} |
Line 1732 sub WriteFile {
|
Line 1774 sub WriteFile {
|
|
|
} |
} |
|
|
|
sub Bottom |
|
{ |
|
my $output.=&Include_virtual("../dimrub/db/footer.html")||""; |
|
$output.=p."<center><font size=-2>Обновление: ".&Include_virtual("../dimrub/db/date")."</center></font>"; |
|
$output.=<<EEE |
|
<SCRIPT LANGUAGE="JavaScript"> |
|
function toggle(e) { |
|
if (e.style.display == "none") { |
|
e.style.display=""; |
|
} else { |
|
e.style.display = "none"; |
|
} |
|
} |
|
</SCRIPT> |
|
EEE |
|
; |
|
$output.=end_html; |
|
return $output; |
|
} |
|
|
|
|
MAIN: |
MAIN: |
{ |
{ |
Line 1754 MAIN:
|
Line 1816 MAIN:
|
or do { |
or do { |
print h1("Временные проблемы") . "База вопросов временно не |
print h1("Временные проблемы") . "База вопросов временно не |
работает. Заходите попозже."; |
работает. Заходите попозже."; |
print &Include_virtual("../dimrub/db/reklama.html") if $url!~/localhost/; |
print &Include_virtual("$reklama") if $url!~/localhost/; |
print end_html; |
print end_html; |
die "Can't connect to DB chgk\n"; |
die "Can't connect to DB chgk\n"; |
}; |
}; |
Line 1819 td {font-size: x-small; font-family : sa
|
Line 1881 td {font-size: x-small; font-family : sa
|
th {font-size: x-small; font-family : sans-serif} |
th {font-size: x-small; font-family : sans-serif} |
</style>\n"; |
</style>\n"; |
|
|
$globaloutput.=&Include_virtual("../dimrub/db/reklama.html"); |
$globaloutput.=&Include_virtual("$reklama")||''; |
} |
} |
|
|
if (length ($qs)<=255 && $qs !~ /(sstr)|(rand)|(comp)|(all=)/i) { |
if (length ($qs)<=255 && $qs !~ /(sstr)|(rand)|(comp)|(all=)/i) { |
Line 1949 EOT
|
Line 2011 EOT
|
$dbh->disconnect; |
$dbh->disconnect; |
exit; |
exit; |
|
|
} else { |
} |
|
elsif (!$opt_z) { |
my $QuestionNumber=0; |
my $QuestionNumber=0; |
my $qnum; |
my $qnum; |
if ($qnum=param('qnumber')){ |
if ($qnum=param('qnumber')){ |
Line 1959 EOT
|
Line 2022 EOT
|
$QuestionNumber=($sth->fetchrow)[0]||0; |
$QuestionNumber=($sth->fetchrow)[0]||0; |
} |
} |
if ($QuestionNumber) { |
if ($QuestionNumber) { |
$globaloutput.= &PrintQuestion($dbh, $QuestionNumber, param('answer')||0, $qnum, 1,0,0); |
$globaloutput.= &PrintQuestion($dbh, $QuestionNumber, $withanswers||0, $qnum, 1,0,0); |
# $dbh, $Id, $answer, $qnum, $title, $text |
# $dbh, $Id, $answer, $qnum, $title, $text |
} else { |
} else { |
$globaloutput.=&PrintTournament($dbh, $tour, param('answer')); |
$globaloutput.=&PrintTournament($dbh, $tour, $withanswers); |
} |
} |
} |
} |
|
else { |
|
open TS, "timestamp"; |
|
my $d=$dbh->quote(<TS>); |
|
close TS; |
|
open FF, ">${realHTMLDIR}index.html" or die "ERROR! - ${HTMLDIR}index.html\n"; |
|
my $o=$globaloutput; |
|
$o.=&PrintTournament($dbh, 0, 0); |
|
$o.=&Bottom; |
|
print FF $o; |
|
close FF; |
|
open FF, ">${realHTMLDIR}all.html" or die "ERROR! - ${HTMLDIR}all.html\n"; |
|
$o=$globaloutput; |
|
$o.=&PrintAll($dbh,0); |
|
$o.=&Bottom; |
|
print FF $o; |
|
close FF; |
|
|
|
|
|
# my ($sth) = $dbh->prepare("SELECT t1.Id, t1.FileName, t1.Type, |
|
# count(t2.Id) |
|
# FROM Tournaments as t1, Tournaments as t2 |
|
# WHERE t1.CreatedAt>$d AND t2.ParentId=t1.Id GROUP BY t1.Id"); |
|
my ($sth) = $dbh->prepare("SELECT t1.Id, t1.FileName, t1.Type, count(t2.Id) FROM Tournaments as t1 LEFT JOIN Tournaments as t2 |
|
ON t2.ParentId=t1.id WHERE t1.CreatedAt>$d GROUP BY t1.Id"); |
|
$sth->execute; |
|
my ($Id,$fname,$type,$c); |
|
while (($Id,$fname,$type,$c)=$sth->fetchrow,$Id) { |
|
next unless $fname; |
|
print "$fname\n"; |
|
$fname=~s/\.txt$//; |
|
if ($type=~/Т/ || $c<=1) |
|
{ |
|
open FF, ">$realHTMLDIR$fname-q.html" or die "ERROR! - $fname-q.html\n"; |
|
my $o=$globaloutput; |
|
$o.=&PrintTournament($dbh, $Id, 0); |
|
$o.=&Bottom; |
|
print FF $o; |
|
close FF; |
|
open FF, ">$realHTMLDIR$fname-a.html"; |
|
$o=$globaloutput; |
|
$o.=&PrintTournament($dbh, $Id, 1); |
|
$o.=&Bottom; |
|
print FF $o; |
|
close FF; |
|
} |
|
else { |
|
open FF, ">$realHTMLDIR$fname.html" or die "ERROR! - $fname-q.html\n"; |
|
my $o=$globaloutput; |
|
$o.=&PrintTournament($dbh, $Id, 0); |
|
$o.=&Bottom; |
|
print FF $o; |
|
close FF; |
|
|
|
} |
|
} |
|
} |
if (!$text) { |
if (!$text) { |
$globaloutput.=&Include_virtual("../dimrub/db/footer.html"); |
$globaloutput.=&Bottom; |
$globaloutput.=p."<center><font size=-2>Обновление: ".&Include_virtual("../dimrub/db/date")."</center></font>"; |
|
print <<EEE |
|
<SCRIPT LANGUAGE="JavaScript"> |
|
function toggle(e) { |
|
if (e.style.display == "none") { |
|
e.style.display=""; |
|
} else { |
|
e.style.display = "none"; |
|
} |
|
} |
|
</SCRIPT> |
|
EEE |
|
; |
|
print end_html; |
|
} |
} |
print $globaloutput; |
if (!$opt_z){ |
if (($qs!~ /(rand)|(sstr)|(comp)/i) && (length $qs<=255)) { |
print $globaloutput; |
|
if (($qs!~ /(rand)|(sstr)|(comp)/i) && (length $qs<=255)) { |
$globaloutput= $dbh->quote($globaloutput); |
$globaloutput= $dbh->quote($globaloutput); |
$dbh->do("insert into hash (query,page) values (". |
$dbh->do("insert into hash (query,page) values (". |
$dbh->quote($qs). |
$dbh->quote($qs). |
",$globaloutput)"); |
",$globaloutput)"); |
|
} |
} |
} |
|
|
$dbh->disconnect; |
$dbh->disconnect; |