version 1.50, 2001/12/11 12:30:23
|
version 1.59, 2002/01/14 11:31:43
|
Line 12 my $printqueries=0;
|
Line 12 my $printqueries=0;
|
my %forbidden=(); |
my %forbidden=(); |
my $debug=0; #added by R7 |
my $debug=0; #added by R7 |
if (param('debug')) {$debug=1; $printqueries=1} |
if (param('debug')) {$debug=1; $printqueries=1} |
|
*STDERR=*STDOUT if $debug; |
my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments', 3, 'Authors', 4, 'Sources'); |
my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments', 3, 'Authors', 4, 'Sources'); |
my %rusfieldname=('Question','Вопрос', 'Answer', 'Ответ', |
my %rusfieldname=('Question','Вопрос', 'Answer', 'Ответ', |
'Comments', 'Комментарии', 'Authors', 'Автор', |
'Comments', 'Комментарии', 'Authors', 'Автор', |
Line 22 my $RL=qr/[ЙЦУКЕНГШЩЗХЪЭЖДЛОРПАВЫФЯЧСМИТ
|
Line 23 my $RL=qr/[ЙЦУКЕНГШЩЗХЪЭЖДЛОРПАВЫФЯЧСМИТ
|
my $RLrl=qr/(?:(?:${rl})|(?:${RL}))+/; |
my $RLrl=qr/(?:(?:${rl})|(?:${RL}))+/; |
my $l=qr/(?:(?:${RLrl})|(?:[\w\-]))+/; |
my $l=qr/(?:(?:${RLrl})|(?:[\w\-]))+/; |
my $Ll=qr/(?:[A-Z])|(?:${RL})/; |
my $Ll=qr/(?:[A-Z])|(?:${RL})/; |
|
my %metodchar=('rus',1,'old',2); |
|
|
|
|
|
|
my $thislocale; |
my $thislocale; |
|
|
$searchin{$_}=1 foreach param('searchin'); |
$searchin{$_}=1 foreach param('searchin'); |
#$searchin{'Question'}=param('Question'); |
my %TypeName=('children'=>'Д', 'game'=>'И', |
#$searchin{'Answer'}=param('Answer'); |
'chgk'=>'Ч', 'brain'=>'Б', 'beskrylka'=>'Л','ehruditka'=>'Э'); |
#$searchin{'Comments'}=param('Comments'); |
|
#$searchin{'Authors'}=param('Authors'); |
|
#$searchin{'Sources'}=param('Sources'); |
|
my $all=param('all'); |
my $all=param('all'); |
$all=0 if lc $all eq 'no'; |
$all=0 if lc $all eq 'no'; |
my ($PWD) = `pwd`; |
my ($PWD) = `pwd`; |
Line 105 sub GetTourQuestions {
|
Line 106 sub GetTourQuestions {
|
my (@arr, @Questions); |
my (@arr, @Questions); |
|
|
my ($sth) = $dbh->prepare("SELECT QuestionId FROM Questions |
my ($sth) = $dbh->prepare("SELECT QuestionId FROM Questions |
WHERE ParentId=$ParentId ORDER BY QuestionId"); |
WHERE ParentId=$ParentId"); |
|
|
$sth->execute; |
$sth->execute; |
|
|
Line 157 sub printform
|
Line 158 sub printform
|
-default=>param('sstr')||'', |
-default=>param('sstr')||'', |
-size=>30, |
-size=>30, |
-maxlength=>30); |
-maxlength=>30); |
|
my $qnumber="Выводить по".br. textfield(-name=>'kvo', |
|
-default=>param('kvo')||'150', |
|
-size=>3, |
|
-maxlength=>5). br."вопросов"; |
|
|
my @df=keys %searchin; |
my @df=keys %searchin; |
@df=('Question', 'Answer') unless @df; |
@df=('Question', 'Answer') unless @df; |
my $fields=checkbox_group('searchin',['Question','Answer','Comments','Authors','Sources'], [@df], |
my $fields=checkbox_group('searchin',['Question','Answer','Comments','Authors','Sources'], [@df], |
Line 179 table(Tr
|
Line 185 table(Tr
|
( |
( |
td({-valign=>'TOP'},$inputstring.$submit.p."Метод: $metod".p."Слова: $all"), |
td({-valign=>'TOP'},$inputstring.$submit.p."Метод: $metod".p."Слова: $all"), |
td({-valign=>'TOP'},(' 'x 8).'Поля:'), |
td({-valign=>'TOP'},(' 'x 8).'Поля:'), |
td({-valign=>'TOP'},$fields) |
td({-valign=>'TOP'},$fields), td(" "x5), |
|
td({-valign=>'TOP'},$qnumber) |
) |
) |
) |
) |
|
|
Line 347 print "$query\n",br if $printqueries;
|
Line 354 print "$query\n",br if $printqueries;
|
{ |
{ |
($field,$lo,$hi,$wordnumber)=@blob[$ii..($ii+3)]; |
($field,$lo,$hi,$wordnumber)=@blob[$ii..($ii+3)]; |
$ii+=4; |
$ii+=4; |
$number=$lo+$hi*256; |
my $addnumber=($field >> 4) << 16; |
$field=$fieldname{$field}; |
$number=(($field >> 4) << 16)+($hi << 8) + $lo; |
|
$field=$fieldname{$field & 0xF}; |
if ($searchin{$field}) |
if ($searchin{$field}) |
{ |
{ |
push @{$tasksof{$i}{$number}}, $wordnumber; |
push @{$tasksof{$i}{$number}}, $wordnumber; |
Line 555 sub NoCase {
|
Line 563 sub NoCase {
|
} |
} |
|
|
sub PrintList { |
sub PrintList { |
my ($dbh,$Questions,$shablon)=@_; |
my ($dbh,$Questions,$shablon,$was)=@_; |
|
|
my $first=param('first') ||1; |
my $first=param('first') ||1; |
my $kvo=param('kvo') ||30; |
my $kvo=param('kvo') ||150; |
|
|
$first=$first-($first-1)%$kvo; |
$first=$first-($first-1)%$kvo; |
my $last=$first+$kvo-1; |
my $last=$first+$kvo-1; |
Line 568 sub PrintList {
|
Line 576 sub PrintList {
|
my $qs=query_string; |
my $qs=query_string; |
$qs=~s/\;/\&/g; |
$qs=~s/\;/\&/g; |
$qs=~s/\&first\=[^\&]+//g; |
$qs=~s/\&first\=[^\&]+//g; |
|
my $sstr=param('sstr'); |
|
$qs=~s/sstr=[^\&]+/sstr=$sstr/; |
|
$qs=~s/\&was=[^\&]+//; |
|
$qs.="&was=$was"; |
if ($first>$kvo*3+1) |
if ($first>$kvo*3+1) |
{ |
{ |
$nav.= |
$nav.= |
(" "x4). |
(" "x4). |
a({href=>url."?".$qs."\&first=1"},"<<").(" "x4). |
a({href=>url."?".$qs."\&first=1"},"<<").(" "x4). |
a({href=>(url."?".$qs."\&first=".($first-$kvo))},"<").(" "x4) |
a({href=>(url."?".$qs."\&first=".($first-$kvo))},"<").(" "x4) |
} |
} |
|
|
else {$nav.=' 'x15;} |
else {$nav.=' 'x15;} |
|
|
Line 647 sub PrintList {
|
Line 657 sub PrintList {
|
} |
} |
|
|
sub PrintSearch { |
sub PrintSearch { |
my ($dbh, $sstr, $metod) = @_; |
my ($dbh, $sstr, $metod,$was) = @_; |
|
my $t=time; |
print h2("Поиск в базе вопросов"); |
print h2("Поиск в базе вопросов"); |
print printform; |
print printform; |
my @allnf; |
my @allnf; |
my (@Questions) = &Search($dbh, \$sstr,$metod,$all,\@allnf); |
my @Questions; |
|
if ($was) |
|
{ |
|
my $sth=$dbh->prepare ("select sstr,questions,allnf from lastqueries where id=".param('was')); |
|
$sth->execute; |
|
my ($q,$nf); |
|
($sstr, $q,$nf)=($sth->fetchrow); |
|
@Questions=unpack 'L*',$q; |
|
@allnf=unpack 'L*',$nf; |
|
$sth->finish; |
|
} else |
|
{ |
|
@Questions=&Search($dbh, \$sstr,$metod,$all,\@allnf); |
|
my $tmp=$dbh->quote(pack("L*",@Questions)); |
|
my $qsstr=$dbh->quote($sstr); |
|
my $nf=$dbh->quote(pack("L*", @allnf)); |
|
my $ss=200; |
|
do |
|
{ |
|
$was=int rand(32000); |
|
} |
|
while (--$ss && (!$dbh->do ("insert into lastqueries (id,sstr,questions,allnf) |
|
values ($was, $qsstr,$tmp,$nf)"))); |
|
print "Something is wrong...".br unless $ss; |
|
} |
|
|
|
|
|
|
|
print p. "Время поиска: " . (time-$t) ." сек.".p; |
my ($output, $i, $suffix, $hits) = ('', 0, '', $#Questions + 1); |
my ($output, $i, $suffix, $hits) = ('', 0, '', $#Questions + 1); |
|
|
my $shablon; |
my $shablon; |
Line 670 print "$query" if $printqueries;
|
Line 709 print "$query" if $printqueries;
|
{ |
{ |
push @shablon,"(?:$arr[0])"; |
push @shablon,"(?:$arr[0])"; |
} |
} |
|
$sth->finish; |
$shablon= join "|", @shablon; |
$shablon= join "|", @shablon; |
$shablon=~s/[её]/\[ЕЁ\]/gi; |
$shablon=~s/[её]/\[ЕЁ\]/gi; |
# $shablon=~s/([йцукенгшщзхъфывапролджэячсмитьбюЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ])/&NoCase($1)/ge; |
# $shablon=~s/([йцукенгшщзхъфывапролджэячсмитьбюЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ])/&NoCase($1)/ge; |
$shablon=qr/$shablon/i; |
$shablon=qr/$shablon/i; |
print "!$shablon!",br if $printqueries; |
print "!$shablon!",br if $printqueries; |
|
|
} |
} |
|
|
|
|
Line 702 print "$query" if $printqueries;
|
Line 743 print "$query" if $printqueries;
|
(@sar) = split(' ', $sstr); |
(@sar) = split(' ', $sstr); |
$shablon=join "|",@sar; |
$shablon=join "|",@sar; |
} |
} |
PrintList($dbh,\@Questions,$shablon); |
PrintList($dbh,\@Questions,$shablon,$was); |
} |
} |
|
|
sub PrintRandom { |
sub PrintRandom { |
Line 726 sub PrintRandom {
|
Line 767 sub PrintRandom {
|
return $output; |
return $output; |
} |
} |
|
|
|
sub PrintEditor { |
|
my $t=shift; #ссылка на Хэш с полями |
|
my $ed=$$t{'Editors'}; |
|
my $edname=($ed=~/\,/ ) ? "Редакторы" : "Редактор" ; |
|
return $ed? h4({align=>"center"},"$edname: $ed" ): ''; |
|
} |
|
|
sub PrintTournament { |
sub PrintTournament { |
my ($dbh, $Id, $answer) = @_; |
my ($dbh, $Id, $answer) = @_; |
my (%Tournament, @Tours, $i, $list, $qnum, $imgsrc, $alt, |
my (%Tournament, @Tours, $i, $list, $qnum, $imgsrc, $alt, |
Line 737 sub PrintTournament {
|
Line 785 sub PrintTournament {
|
my ($URL) = $Tournament{'URL'}; |
my ($URL) = $Tournament{'URL'}; |
my ($Info) = $Tournament{'Info'}; |
my ($Info) = $Tournament{'Info'}; |
my ($Copyright) = $Tournament{'Copyright'}; |
my ($Copyright) = $Tournament{'Copyright'}; |
|
my $fname=$Tournament{'FileName'}; |
@Tours = &GetTours($dbh, $Id); |
@Tours = &GetTours($dbh, $Id); |
|
$list=''; |
|
my $textid; |
if ($Id) { |
if ($Id) { |
for ($Tournament{'Type'}) { |
for ($Tournament{'Type'}) { |
/Г/ && do { |
/Г/ && do { |
Line 759 sub PrintTournament {
|
Line 808 sub PrintTournament {
|
|
|
$output .= h2({align=>"center"}, |
$output .= h2({align=>"center"}, |
"$title") . p . "\n"; |
"$title") . p . "\n"; |
|
$output.=&PrintEditor(\%Tournament); |
last; |
last; |
}; |
}; |
/Т/ && do { |
/Т/ && do { |
Line 793 sub PrintTournament {
|
Line 843 sub PrintTournament {
|
$alt = "[-]"; |
$alt = "[-]"; |
} |
} |
|
|
|
my $textid; |
|
if ($textid=$Tournament{'FileName'}) |
|
{ |
|
$textid=~s/\.txt//; |
|
} |
|
elsif ($textid=$Tournament{'Number'}) |
|
{ |
|
$fname=~s/\.txt//; |
|
$textid="$fname.$textid"; |
|
} |
|
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=$Tournament{'Id'}&answer=0"}, |
. a({href=>url . "?tour=$textid&answer=0"}, |
"вопросы") . "] [" |
"вопросы") . "] [" |
. a({href=>url . "?tour=$Tournament{'Id'}&answer=1"}, |
. a({href=>url . "?tour=$textid&answer=1"}, |
"вопросы + ответы") . "]") |
"вопросы + ответы") . "]") |
); |
); |
} else { |
} else { |
$list .= dd(a({href=>url . "?tour=$Tournament{'Id'}&comp=1"}, |
$list .= dd(#a({href=>url . "?tour=$textid&comp=1"}, |
img({src=>'/icons/compressed.gif', alt=>'[ZIP]', border=>1})) |
#img({src=>'/icons/compressed.gif', alt=>'[ZIP]', border=>1})). " " . |
. " " . img({src=>$imgsrc, alt=>$alt}) |
img({src=>$imgsrc, alt=>$alt}) |
. " " . a({href=>url . "?tour=$Tournament{'Id'}&answer=0"}, |
. " " . a({href=>url . "?tour=$textid&answer=0"}, |
$Tournament{'Title'}. " ". |
$Tournament{'Title'}. " ". |
$Tournament{'PlayedAt'}) . $qnum); |
$Tournament{'PlayedAt'}) . $qnum); |
} |
} |
Line 825 sub PrintTournament {
|
Line 888 sub PrintTournament {
|
$output .= p("Копирайт: " . $Copyright); |
$output .= p("Копирайт: " . $Copyright); |
} |
} |
|
|
|
|
|
|
if ($Info) { |
if ($Info) { |
$output .= p($Info); |
$output .= p($Info); |
} |
} |
|
|
return $output; |
return $output; |
} |
} |
|
|
Line 841 sub Suffix {
|
Line 905 sub Suffix {
|
} |
} |
|
|
sub IsTour { |
sub IsTour { |
my ($dbh, $Id) = @_; |
my ($dbh, $Id,$n) = @_; |
my ($sth) = $dbh->prepare("SELECT Type FROM Tournaments |
|
|
my ($sth) ; |
|
|
|
if (defined $n) |
|
{ $sth=$dbh->prepare ("select Id FROM Tournaments |
|
WHERE ParentId=$Id AND Number=$n"); |
|
} |
|
else |
|
{ |
|
$sth=$dbh->prepare("SELECT Id FROM Tournaments |
WHERE Id=$Id"); |
WHERE Id=$Id"); |
|
} |
$sth->execute; |
$sth->execute; |
return ($sth->fetchrow)[0] =~ /Т/; |
my $a=($sth->fetchrow)[0]; |
|
$sth->finish; |
|
return $a; |
} |
} |
|
|
# Gets a DB handler (ofcourse) and a tour Id. Prints all the |
# Gets a DB handler (ofcourse) and a tour Id. Prints all the |
Line 861 sub PrintTour {
|
Line 937 sub PrintTour {
|
return 0 |
return 0 |
if ($Tour{'Type'} !~ /Т/); |
if ($Tour{'Type'} !~ /Т/); |
|
|
|
my ($fname)=$Tournament{'FileName'}; |
|
$fname=~s/\.txt//; |
my ($qnum) = $Tour{'QuestionsNum'}; |
my ($qnum) = $Tour{'QuestionsNum'}; |
my ($suffix) = &Suffix($qnum); |
my ($suffix) = &Suffix($qnum); |
|
|
Line 868 sub PrintTour {
|
Line 946 sub PrintTour {
|
$Tournament{'PlayedAt'}, |
$Tournament{'PlayedAt'}, |
"<br>", $Tour{"Title"} . |
"<br>", $Tour{"Title"} . |
" ($qnum вопрос$suffix)\n") . p; |
" ($qnum вопрос$suffix)\n") . p; |
|
$output .=&PrintEditor(\%Tour); |
|
|
my (@Questions) = &GetTourQuestions($dbh, $Id); |
my (@Questions) = &GetTourQuestions($dbh, $Id); |
for ($q = 0; $q <= $#Questions; $q++) { |
for ($q = 0; $q <= $#Questions; $q++) { |
Line 890 sub PrintTour {
|
Line 969 sub PrintTour {
|
$output .= p($Tournament{'Info'}); |
$output .= p($Tournament{'Info'}); |
} |
} |
|
|
|
my $n=$Tour{'Number'}; |
if ($answer == 0) { |
if ($answer == 0) { |
$bottom .= |
$bottom .= |
"[" . a({href=>url . "?tour=$Id&answer=1"}, "ответы") . "] " . br; |
"[" . a({href=>url . "?tour=$fname.$n&answer=1"}, "ответы") . "] " . br; |
} |
} |
if (&IsTour($dbh, $Id - 1)) { |
if ($n>1) { |
$bottom .= |
$bottom .= |
"[" . a({href=>url . "?tour=" . ($Id - 1) . "&answer=0"}, |
"[" . a({href=>url . "?tour=$fname." . ($n - 1) . "&answer=0"}, |
"предыдущий тур") . "] "; |
"предыдущий тур") . "] "; |
$bottom .= |
$bottom .= |
"[" . a({href=>url . "?tour=" . ($Id - 1) . "&answer=1"}, |
"[" . a({href=>url . "?tour=$fname." . ($n - 1) . "&answer=1"}, |
"предыдущий тур с ответами") . "] " . br; |
"предыдущий тур с ответами") . "] " . br; |
} |
} |
if (&IsTour($dbh, $Id + 1)) { |
if (&IsTour($dbh, $Tour{'ParentId'}, $n + 1)) { |
$bottom .= |
$bottom .= |
"[" . a({href=>url . "?tour=" . ($Id + 1) . "&answer=0"}, |
"[" . a({href=>url . "?tour=$fname." . ($n + 1) . "&answer=0"}, |
"следующий тур") . "] "; |
"следующий тур") . "] "; |
$bottom .= |
$bottom .= |
"[" . a({href=>url . "?tour=" . ($Id + 1) . "&answer=1"}, |
"[" . a({href=>url . "?tour=$fname." . ($n + 1) . "&answer=1"}, |
"следующий тур с ответами") . "] "; |
"следующий тур с ответами") . "] "; |
} |
} |
|
|
Line 921 sub PrintTour {
|
Line 1000 sub PrintTour {
|
sub PrintField { |
sub PrintField { |
my ($header, $value, $text) = @_; |
my ($header, $value, $text) = @_; |
if ($text) { |
if ($text) { |
$value =~ s/<[\/\w]*>//sg; |
$value =~ s/<[\/\w]*?>//sg; |
} else { |
} else { |
$value =~ s/^\s+/<br> /mg; |
$value =~ s/^\s+/<br> /mg; |
$value =~ s/^\|([^\n]*)/<pre>$1<\/pre>/mg; |
$value =~ s/^\|([^\n]*)/<pre>$1<\/pre>/mg; |
|
$value =~ s/\s+-+\s+/ – /mg; |
} |
} |
|
|
|
|
return $text ? "$header:\n$value\n\n" : |
return $text ? "$header:\n$value\n\n" : |
strong("$header: ") . $value . p . "\n"; |
strong("$header: ") . $value . p . "\n"; |
} |
} |
Line 942 sub PrintQuestion {
|
Line 1023 sub PrintQuestion {
|
if ($title) { |
if ($title) { |
my (%Tour) = GetTournament($dbh, $Question{'ParentId'}); |
my (%Tour) = GetTournament($dbh, $Question{'ParentId'}); |
my (%Tournament) = GetTournament($dbh, $Tour{'ParentId'}); |
my (%Tournament) = GetTournament($dbh, $Tour{'ParentId'}); |
|
my $fname=$Tournament{'FileName'}; |
|
$fname=~s/\.txt//; |
$titles .= |
$titles .= |
dd(img({src=>"/icons/folder.open.gif"}) . " " . |
dd(img({src=>"/icons/folder.open.gif"}) . " " . |
a({href=>url . "?tour=$Tournament{'Id'}"}, $Tournament{'Title'}, $Tournament{'PlayedAt'})); |
a({href=>url . "?tour=$fname"}, $Tournament{'Title'}, $Tournament{'PlayedAt'})); |
$titles .= |
$titles .= |
dl(dd(img({src=>"/icons/folder.open.gif"}) . " " . |
dl(dd(img({src=>"/icons/folder.open.gif"}) . " " . |
a({href=>url . "?tour=$Tour{'Id'}"}, $Tour{'Title'}))); |
a({href=>url . "?tour=$fname.$Tour{Number}"}, $Tour{'Title'}))); |
} |
} |
$output .= dl(strong($titles)); |
$output .= dl(strong($titles)); |
} |
} |
Line 1014 sub GetQNum {
|
Line 1097 sub GetQNum {
|
my ($dbh) = @_; |
my ($dbh) = @_; |
my ($sth) = $dbh->prepare("SELECT COUNT(*) FROM Questions"); |
my ($sth) = $dbh->prepare("SELECT COUNT(*) FROM Questions"); |
$sth->execute; |
$sth->execute; |
return ($sth->fetchrow)[0]; |
my $tmp=($sth->fetchrow)[0]; |
|
$sth->finish; |
|
return $tmp; |
} |
} |
sub GetMaxQId { |
sub GetMaxQId { |
my ($dbh) = @_; |
my ($dbh) = @_; |
my ($sth) = $dbh->prepare("SELECT MAX(QuestionId) FROM Questions"); |
my ($sth) = $dbh->prepare("SELECT MAX(QuestionId) FROM Questions"); |
$sth->execute; |
$sth->execute; |
return ($sth->fetchrow)[0]; |
my $tmp=($sth->fetchrow)[0]; |
|
$sth->finish; |
|
return $tmp; |
|
|
} |
} |
|
|
# Returns Id's of 12 random questions |
# Returns Id's of 12 random questions |
Line 1031 sub Get12Random {
|
Line 1119 sub Get12Random {
|
my (%chosen); |
my (%chosen); |
srand; |
srand; |
|
|
for ($i = 0; $i < $num; $i++) { |
my $where=0; |
do { |
my $r=int (rand(10000)); |
$q = int(rand($qnum)); |
|
$sth = $dbh->prepare("SELECT Type FROM Questions |
foreach (split '', $type) |
WHERE QuestionId=$q"); |
{ |
$sth->execute; |
$where.= " OR (Type ='$_') OR (Type ='$_Д') "; |
$t = ($sth->fetchrow)[0]; |
} |
} until !$chosen{$q} && $t && $type =~ /[$t]/; |
$where.= "OR (Type='ЧБ')" if ($type=~/Ч|Б/); |
$sth->finish; |
|
$chosen{$q} = 'y'; |
$q="select QuestionId, QuestionId/$r-floor(QuestionId/$r) as val |
push @questions, $q; |
from Questions where $where order by val limit $num"; |
|
|
|
# Когда на куличках появится mysql >=3.23 надо заменить на order by rand(); |
|
|
|
$sth=$dbh->prepare($q); |
|
$sth->execute; |
|
while (($i)=$sth->fetchrow) |
|
{ |
|
push @questions,$i; |
} |
} |
|
$sth->finish; |
|
for ($i=@questions; --$i;){ |
|
my $j=rand ($i+1); |
|
@questions[$i,$j]=@questions[$j,$i] unless $i==$j; |
|
} |
return @questions; |
return @questions; |
} |
} |
|
|
Line 1081 sub PrintArchive {
|
Line 1182 sub PrintArchive {
|
} |
} |
|
|
sub PrintAll { |
sub PrintAll { |
my ($dbh, $Id) = @_; |
my ($dbh, $Id,$fname) = @_; |
my ($output, $list, $i); |
my ($output, $list, $i); |
|
|
my (%Tournament) = &GetTournament($dbh, $Id); |
my (%Tournament) = &GetTournament($dbh, $Id); |
Line 1093 sub PrintAll {
|
Line 1194 sub PrintAll {
|
if ($Id == 0) { |
if ($Id == 0) { |
$output = h3("Все турниры"); |
$output = h3("Все турниры"); |
} else { |
} else { |
|
my $textid; |
|
if ($textid=$Tournament{'FileName'}) |
|
{ |
|
$textid=~s/\.txt//; |
|
} |
|
elsif ($textid=$Tournament{'Number'}) |
|
{ |
|
$fname=~s/\.txt//; |
|
$textid="$fname.$textid"; |
|
} |
|
else {$textid=$Tournament{'Id'}}; |
|
|
|
|
$output .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) . |
$output .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) . |
" " . a({href=>url . "?tour=$Tournament{'Id'}&answer=0"}, |
" " . a({href=>url . "?tour=$textid&answer=0"}, |
$Tournament{'Title'}) ." " . $Tournament{'PlayedAt'} . " $New"); |
$Tournament{'Title'}) ." " . $Tournament{'PlayedAt'} . " $New"); |
} |
} |
if ($Id == 0 or $Tournament{'Type'} =~ /Г/) { |
if ($Id == 0 or $Tournament{'Type'} =~ /Г/ or $Tournament{'Type'} eq '') { |
for ($i = 0; $i <= $#Tours; $i++) { |
for ($i = 0; $i <= $#Tours; $i++) { |
$list .= &PrintAll($dbh, $Tours[$i]); |
$list .= &PrintAll($dbh, $Tours[$i],$Tournament{'FileName'}); |
} |
} |
$output .= dl($list); |
$output .= dl($list); |
} |
} |
Line 1210 a({href=>url."?authors=surname"},"фамили
|
Line 1324 a({href=>url."?authors=surname"},"фамили
|
|
|
my $ar=$sth->fetchall_arrayref; |
my $ar=$sth->fetchall_arrayref; |
|
|
|
$sth->finish; |
|
|
|
|
foreach my $arr(@$ar) |
foreach my $arr(@$ar) |
Line 1282 if ((uc 'а') ne 'А') {print "Koi8-r loca
|
Line 1397 if ((uc 'а') ne 'А') {print "Koi8-r loca
|
|
|
if (param('rand')) { |
if (param('rand')) { |
my ($type, $qnum) = ('', 12); |
my ($type, $qnum) = ('', 12); |
$type .= 'Б' if (param('brain')); |
$type.=$TypeName{$_} foreach param('type'); |
$type .= 'Ч' if (param('chgk')); |
# $type .= 'Б' if (param('brain')); |
|
# $type .= 'Ч' if (param('chgk')); |
$qnum = param('qnum') if (param('qnum') =~ /^\d+$/); |
$qnum = param('qnum') if (param('qnum') =~ /^\d+$/); |
$qnum = 0 if (!$type); |
$qnum = 0 if (!$type); |
if (param('email') && -x $SENDMAIL && |
my $Email; |
open(F, "| $SENDMAIL -t -n")) { |
if (($Email=param('email')) && -x $SENDMAIL && |
my ($Email) = param('email'); |
open(F, "| $SENDMAIL $Email")) { |
my ($mime_type) = $text ? "plain" : "html"; |
my ($mime_type) = $text ? "plain" : "html"; |
print F <<EOT; |
print F <<EOT; |
To: $Email |
To: $Email |
From: olegstemanov\@mail.ru |
From: olegstepanov\@mail.ru |
Subject: Sluchajnij Paket Voprosov "Chto? Gde? Kogda?" |
Subject: Sluchajnij Paket Voprosov "Chto? Gde? Kogda?" |
MIME-Version: 1.0 |
MIME-Version: 1.0 |
Content-type: text/$mime_type; charset="koi8-r" |
Content-type: text/$mime_type; charset="koi8-r" |
Line 1300 Content-type: text/$mime_type; charset="
|
Line 1416 Content-type: text/$mime_type; charset="
|
EOT |
EOT |
print F &PrintRandom($dbh, $type, $qnum, $text); |
print F &PrintRandom($dbh, $type, $qnum, $text); |
close F; |
close F; |
print "Пакет случайно выбранных вопросов послан. Нажмите |
print "Пакет случайно выбранных вопросов послан по адресу $Email. Нажмите |
на <B>Reload</B> для получения еще одного пакета"; |
на <B>Reload</B> для получения еще одного пакета"; |
} else { |
} else { |
print &PrintRandom($dbh, $type, $qnum, $text); |
print &PrintRandom($dbh, $type, $qnum, $text); |
Line 1312 EOT
|
Line 1428 EOT
|
elsif (param('qofauthor')){ |
elsif (param('qofauthor')){ |
&PrintQOfAuthor($dbh,param('qofauthor')); |
&PrintQOfAuthor($dbh,param('qofauthor')); |
} |
} |
elsif (param('sstr')) { |
elsif (param('sstr')||param('was')) { |
&PrintSearch($dbh, param('sstr'), param('metod')); |
&PrintSearch($dbh, param('sstr'), param('metod'),param('was')); |
|
$dbh->do("delete from lastqueries where |
|
(TO_DAYS(NOW()) - TO_DAYS(t) >= 2) OR |
|
(time_to_sec(now())-time_to_sec(t) >3600)") |
} |
} |
elsif (param('qid')) { |
elsif (param('qid')) { |
my $qid=param('qid'); |
my $qid=param('qid'); |
Line 1360 $sstr=~s/[^йцукенгшщзхъфывапролджэячсмит
|
Line 1479 $sstr=~s/[^йцукенгшщзхъфывапролджэячсмит
|
|
|
} else { |
} else { |
$tour = (param('tour')) ? param('tour') : 0; |
$tour = (param('tour')) ? param('tour') : 0; |
|
my $sth; |
if ($tour !~ /^[0-9]*$/) { |
if ($tour !~ /^[0-9]*$/) { |
my ($sth) = $dbh->prepare("SELECT Id FROM Tournaments |
if ($tour=~/\./) |
WHERE FileName = '$tour.txt'"); |
{ |
$sth->execute; |
my ($fname,$n)= split /\./ , $tour; |
$tour = ($sth->fetchrow)[0]; |
|
$sth->finish; |
$sth = $dbh->prepare( |
|
"SELECT t2.Id FROM Tournaments as t1, |
|
Tournaments as t2 |
|
WHERE t1.FileName = '$fname.txt' |
|
AND t1.Id=t2.ParentId AND t2.Number=$n"); |
|
} |
|
else |
|
{ |
|
$sth = $dbh->prepare("SELECT Id FROM Tournaments |
|
WHERE FileName = '$tour.txt'"); |
|
} |
|
$sth->execute; |
|
$tour = ($sth->fetchrow)[0]; |
|
$sth->finish; |
} |
} |
print &PrintTournament($dbh, $tour, param('answer')); |
print &PrintTournament($dbh, $tour, param('answer')); |
} |
} |