version 1.72, 2002/08/04 11:25:10
|
version 1.77, 2002/11/10 15:09:25
|
Line 7 use Time::Local;
|
Line 7 use Time::Local;
|
use POSIX qw(locale_h); |
use POSIX qw(locale_h); |
use locale; |
use locale; |
open STDERR, ">/var/tmp/errors1"; |
open STDERR, ">/var/tmp/errors1"; |
|
my $newsurl='http://news.chgk.info/'; |
my $printqueries=0; |
my $printqueries=0; |
my %forbidden=(); |
my %forbidden=(); |
my $debug=0; #added by R7 |
my $debug=0; #added by R7 |
Line 533 sub Search {
|
Line 534 sub Search {
|
for $i (0 .. $#sar) { |
for $i (0 .. $#sar) { |
$sar[$i] = $dbh->quote("%${sar[$i]}%"); |
$sar[$i] = $dbh->quote("%${sar[$i]}%"); |
} |
} |
|
$_.=' ' foreach (@fields); # Это чтобы последнее слово поля |
|
# не сливалось с первым словом |
|
# следующего поля, R7 |
my($f) = "CONCAT(" . join(',', @fields) . ")"; |
my($f) = "CONCAT(" . join(',', @fields) . ")"; |
if (param('all') eq 'yes') { |
if (param('all') eq 'yes') { |
$sstr = join " AND $f LIKE ", @sar; |
$sstr = join " AND $f LIKE ", @sar; |
Line 761 print "$query" if $printqueries;
|
Line 764 print "$query" if $printqueries;
|
$sstr = '[ \.\,:;]' . $sstr . '[ \.\,:\;]'; |
$sstr = '[ \.\,:;]' . $sstr . '[ \.\,:\;]'; |
} |
} |
|
|
$sstr =~ s/(.)/&NoCase($1)/ge; |
# $sstr =~ s/(.)/&NoCase($1)/ge; |
|
|
my @sar; |
my @sar; |
if ($metod ne 'rus') |
if ($metod ne 'rus') |
{ |
{ |
(@sar) = split(' ', $sstr); |
my $ss=$sstr; |
|
(@sar) = split(' ', $ss); |
|
s/(\W)/\\$1/g foreach (@sar); |
$shablon=join "|",@sar; |
$shablon=join "|",@sar; |
} |
} |
PrintList($dbh,\@Questions,$shablon,$was); |
PrintList($dbh,\@Questions,$shablon,$was); |
Line 809 sub PrintTournament {
|
Line 814 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/\/znatoki\/boris\/reports\//$newsurl/ if url=~/kulichki/;; |
my ($Info) = $Tournament{'Info'}; |
my ($Info) = $Tournament{'Info'}; |
my ($Copyright) = $Tournament{'Copyright'}; |
my ($Copyright) = $Tournament{'Copyright'}; |
my $fname=$Tournament{'FileName'}; |
my $fname=$Tournament{'FileName'}; |
Line 820 sub PrintTournament {
|
Line 827 sub PrintTournament {
|
/Г/ && do { |
/Г/ && do { |
$output .= h2({align=>"center"}, |
$output .= h2({align=>"center"}, |
"Группа: $Tournament{'Title'} ", |
"Группа: $Tournament{'Title'} ", |
"$Tournament{'PlayedAt'}") . p . "\n"; |
$Tournament{'PlayedAt'}||'') . p . "\n"; |
last; |
last; |
}; |
}; |
/Ч/ && do { |
/Ч/ && do { |
Line 901 sub PrintTournament {
|
Line 908 sub PrintTournament {
|
img({src=>$imgsrc, alt=>$alt}) |
img({src=>$imgsrc, alt=>$alt}) |
. " " . a({href=>url . "?tour=$textid&answer=0"}, |
. " " . a({href=>url . "?tour=$textid&answer=0"}, |
$Tournament{'Title'}. " ". |
$Tournament{'Title'}. " ". |
$Tournament{'PlayedAt'}) . $qnum); |
$Tournament{'PlayedAt'}||'') . $qnum); |
} |
} |
} |
} |
$output .= dl($list); |
$output .= dl($list); |
Line 972 sub PrintTour {
|
Line 979 sub PrintTour {
|
my ($suffix) = &Suffix($qnum); |
my ($suffix) = &Suffix($qnum); |
|
|
$output .= h2({align=>"center"}, $Tournament{"Title"}, |
$output .= h2({align=>"center"}, $Tournament{"Title"}, |
$Tournament{'PlayedAt'}, |
$Tournament{'PlayedAt'}||'', |
"<br>", $Tour{"Title"} . |
"<br>", $Tour{"Title"} . |
" ($qnum вопрос$suffix)\n") . p; |
" ($qnum вопрос$suffix)\n") . p; |
$output .=&PrintEditor(\%Tour); |
$output .=&PrintEditor(\%Tour); |
Line 1058 sub PrintQuestion {
|
Line 1065 sub PrintQuestion {
|
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'}; |
my $fname=$Tournament{'FileName'}; |
|
return "" if $fname=~/mgp0203/; |
$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"}, $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=$fname.$Tour{Number}#$qnum"}, $Tour{'Title'}))); |
a({href=>url . "?tour=$fname.$Tour{Number}#$qnum"}, $Tour{'Title'}))); |
Line 1272 sub PrintAll {
|
Line 1280 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=>url . "?tour=$textid&answer=0"}, |
$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 '') { |
for ($i = 0; $i <= $#Tours; $i++) { |
for ($i = 0; $i <= $#Tours; $i++) { |
Line 1306 sub PrintDates {
|
Line 1314 sub PrintDates {
|
%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=>url . "?tour=$Tournament{'Id'}&answer=0"}, |
$Tournament{'Title'}, $Tournament{'PlayedAt'})); |
$Tournament{'Title'}, $Tournament{'PlayedAt'}||'')); |
} |
} |
$sth->finish; |
$sth->finish; |
$output .= dl($list); |
$output .= dl($list); |
Line 1427 sub WriteFile {
|
Line 1435 sub WriteFile {
|
return -1 unless $Id; |
return -1 unless $Id; |
open (OUT, ">$TMPDIR/$fname.txt") || print STDERR "Error in $fname.txt\n"; |
open (OUT, ">$TMPDIR/$fname.txt") || print STDERR "Error in $fname.txt\n"; |
print OUT "Чемпионат:\n$Title\n\n"; |
print OUT "Чемпионат:\n$Title\n\n"; |
my $date=$PlayedAt; |
my $date=$PlayedAt||'00-00-00'; |
my ($year,$month,$day)=split /-/, $date; |
my ($year,$month,$day)=split /-/, $date; |
# $month=0,$date=0 if $year && $month==1 && $day==1; |
# $month=0,$date=0 if $year && $month==1 && $day==1; |
my $pdate=sprintf("%02d-%3s-%4d",$day,$months[$month],$year); |
my $pdate=sprintf("%02d-%3s-%4d",$day,$months[$month],$year); |