[BACK]Return to db.cgi CVS log [TXT] [DIR] Up to [Local Repository] / db / prgsrc

Diff for /db/prgsrc/db.cgi between versions 1.117 and 1.125

version 1.117, 2003/04/29 22:21:26 version 1.125, 2003/12/11 04:50:35
Line 10  use vars qw($opt_z); Line 10  use vars qw($opt_z);
 use Getopt::Std;  use Getopt::Std;
 getopts('z');  getopts('z');
 $opt_z||=param("makehtml");  $opt_z||=param("makehtml");
   my $timestamp="_timestamp.tmp";
 my $paramtour;  my $paramtour;
 my $withanswers=param('answer')||param('answers');  my $withanswers=param('answer')||param('answers');
 open STDERR, ">/var/tmp/errors1";  open STDERR, ">/var/tmp/errors1";
Line 24  $reklama="../reklama.html" if $opt_z; Line 25  $reklama="../reklama.html" if $opt_z;
 $footer="../footer.html" if $opt_z;  $footer="../footer.html" if $opt_z;
 $datefooter="../date" if $opt_z;  $datefooter="../date" if $opt_z;
 my $HTMLDIR="/znatoki/dimrub/db/baza/";  my $HTMLDIR="/znatoki/dimrub/db/baza/";
 $HTMLDIR="/baza/";  $HTMLDIR="/files/";
 my $realHTMLDIR;  my $realHTMLDIR;
 if ($^O =~ /win/i) {  if ($^O =~ /win/i) {
  $realHTMLDIR="/html/znatoki/baza/";   $realHTMLDIR="/html/znatoki/baza/";
 } else   } else 
 {  {
   $realHTMLDIR="/home/piataev/public_html/dimrub/db/baza/";    $realHTMLDIR="/home/piataev/public_html/dimrub/db/files/";
 }  }
 my $usehtml=$opt_z||0;  my $usehtml=$opt_z||0;
   $usehtml=1;
 my $usewas=0;  my $usewas=0;
 my $cashednumber=500;  my $cashednumber=500;
 my $outputnumber=10;  my $outputnumber=10;
Line 53  if ($url !~ /db\.chgk\.info/ && $url !~ Line 55  if ($url !~ /db\.chgk\.info/ && $url !~
    Redirect ($u);     Redirect ($u);
    exit;     exit;
 }  }
 if (!param('sstr') && param('all')) {  #if (!param('sstr') && param('all')) {
            my $destination='http://db.chgk.info/all.html';  #          my $destination='http://db.chgk.info/all.html';
                 Redirect($destination);  #               Redirect($destination);
                 exit;  #                exit;
 }  #}
 my $thislocale;  my $thislocale;
 if ($^O =~ /win/i) {  if ($^O =~ /win/i) {
         $thislocale = "Russian_Russia.20866";          $thislocale = "Russian_Russia.20866";
Line 126  sub NewEnough { Line 128  sub NewEnough {
   
 sub Redirect {  sub Redirect {
 my ($destination) = @_;  my ($destination) = @_;
   print header.<<EndOfHTML;
   <head><meta http-equiv="refresh" content="0; URL=$destination"></head>
   EndOfHTML
   ;
   =head
   
 print <<EndOfHTML;  print <<EndOfHTML;
 Content-type: text/html  Content-type: text/html
 Location: $destination  Location: $destination
Line 141  by clicking <A HREF="$destination">here< Line 149  by clicking <A HREF="$destination">here<
 </HTML>  </HTML>
 EndOfHTML  EndOfHTML
 ;  ;
   =cut
 }  }
   
   
Line 167  sub GetTournament { Line 176  sub GetTournament {
 sub fetchquestion {  sub fetchquestion {
         my ($sth,$q,$WithTour)=@_;          my ($sth,$q,$WithTour)=@_;
         if ($WithTour) {          if ($WithTour) {
                 ($$q{'QuestionId'}, $$q{'Question'},$$q{'Answer'},$$q{'Comments'},$$q{'Authors'},                  ($$q{'QuestionId'}, $$q{'Question'},$$q{'Answer'},$$q{'Comments'},$$q{'Authors'},$$q{'Sources'},
                 $$q{'Number'},                   $$q{'Number'}, 
                 $$q{'Title'}, $$q{'TourTitle'}, $$q{'FileName'},$$q{'PlayedAt'},$$q{'TourNumber'}) =                   $$q{'Title'}, $$q{'TourTitle'}, $$q{'FileName'},$$q{'PlayedAt'},$$q{'TourNumber'}) = 
                 $sth->fetchrow;                  $sth->fetchrow;
         } else {          } else {
                 ($$q{'QuestionId'}, $$q{'Question'},$$q{'Answer'},$$q{'Comments'},$$q{'Authors'},                  ($$q{'QuestionId'}, $$q{'Question'},$$q{'Answer'},$$q{'Comments'},$$q{'Authors'},$$q{'Sources'},
                 $$q{'Number'})=                   $$q{'Number'})= 
                 $sth->fetchrow;                  $sth->fetchrow;
         }          }
Line 194  sub SelectQuestions { Line 203  sub SelectQuestions {
   
         my $query;          my $query;
         if ($WithTour) {          if ($WithTour) {
                 $query="SELECT QuestionId, Questions.Question, Answer, Comments, Authors,                  $query="SELECT QuestionId, Questions.Question, Answer, Comments, Authors, Sources,
                         Questions.Number                          Questions.Number
                         , t2.Title, t1.Title, t2.FileName,  t2.PlayedAt,t1.Number                          , t2.Title, t1.Title, t2.FileName,  t2.PlayedAt,t1.Number
                         from Questions,Tournaments as t1, Tournaments as t2                           from Questions,Tournaments as t1, Tournaments as t2 
                         WHERE $where";                          WHERE $where";
         } else {          } else {
                 $query="SELECT QuestionId, Questions.Question, Answer, Comments, Authors,                  $query="SELECT QuestionId, Questions.Question, Answer, Comments, Authors, Sources,
                         Questions.Number from Questions                           Questions.Number from Questions 
                         WHERE $where";                          WHERE $where";
         }          }
Line 241  sub tourhref { Line 250  sub tourhref {
         $res.=$a?"-a":"-q" unless $gr;          $res.=$a?"-a":"-q" unless $gr;
         $res.=".html";          $res.=".html";
         $res=~s/(\#\d+)(.*)$/$2$1/;          $res=~s/(\#\d+)(.*)$/$2$1/;
           my $t=$res;
           $t=~s/\#.*$//;
           $res=~s/\.1// unless -e "$realHTMLDIR$t";
           $t=$res;
           $t=~s/\#.*$//;
           $res=~s/\.html/-q\.html/ unless -e "$realHTMLDIR$t";
         $res="$HTMLDIR$res" unless $opt_z;          $res="$HTMLDIR$res" unless $opt_z;
         return $res;          return $res;
    } else {     } else {
Line 450  sub russearch { Line 465  sub russearch {
             my %count;              my %count;
         POSIX::setlocale( &POSIX::LC_ALL, $thislocale );          POSIX::setlocale( &POSIX::LC_ALL, $thislocale );
 $sstr=~tr/ÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔØÂÀ/êãõëåîçûýúèÿæù÷áðòïìäöüñþóíéôøâà/;  $sstr=~tr/ÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔØÂÀ/êãõëåîçûýúèÿæù÷áðòïìäöüñþóíéôøâà/;
             @qw=@w =split (' ', uc $sstr);  #           @qw=@w =split (' ', uc $sstr);
               my $ts=uc $sstr;
               @qw=@w= $ts=~m/(?:(?:${RLrl})+)|(?:[A-Za-z0-9]+)/gom;
   
   
 #-----------  #-----------
             foreach $i (0..$#w) # ÚÁÐÏÌÎÑÅÍ ÍÁÓÓÉ× @nf ÎÁÞÁÌØÎÙÈ ÆÏÒÍ              foreach $i (0..$#w) # ÚÁÐÏÌÎÑÅÍ ÍÁÓÓÉ× @nf ÎÁÞÁÌØÎÙÈ ÆÏÒÍ
Line 996  sub PrintTournament { Line 1014  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=~/db.chgk.info/;          $URL=~s/http:\/znatoki\/boris\/reports\//$newsurl/ if $url=~/kulichki/ || $url=~/db.chgk.info/;
         $URL=~s/\/znatoki\/boris\/reports\//$newsurl/ if url=~/kulichki/ || $url=~/db.chgk.info/;          $URL=~s/\/znatoki\/boris\/reports\//$newsurl/ if url=~/kulichki/ || $url=~/db.chgk.info/;
         my ($Info) = $Tournament{'Info'};          my ($Info) = $Tournament{'Info'};
Line 1086  sub PrintTournament { Line 1104  sub PrintTournament {
                   "×ÏÐÒÏÓÙ + ÏÔ×ÅÔÙ") . "]")                    "×ÏÐÒÏÓÙ + ÏÔ×ÅÔÙ") . "]")
                                 );                                  );
                 } else {                  } else {
                         $list .= dd(#a({href=>                          $list .= dd(a({href=>
 #                                 $url . "?tour=$textid&comp=1"},                                   $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=>tourhref($textid,0,1)},                                  . " " . a({href=>tourhref($textid,0,1)},
Line 1195  sub PrintTour { Line 1213  sub PrintTour {
   
         my $n=$Tour{'Number'};          my $n=$Tour{'Number'};
         if ($answer == 0) {          if ($answer == 0) {
                   my $nn=".$n";
                   $nn="" if ($n==1 && !&IsTour($dbh, $Tour{'ParentId'}, $n + 1));
                   
                 $bottom .=                  $bottom .=
                         "[" . a({href=>tourhref("$fname.$n",1)},                           "[" . a({href=>tourhref("$fname$nn",1)}, 
                          "ÏÔ×ÅÔÙ") .  "] " . br;                           "ÏÔ×ÅÔÙ") .  "] " . br;
         }          }
         if ($n>1) {          if ($n>1) {
Line 1228  sub PrintField { Line 1249  sub PrintField {
             $value =~ s/<[\/\w]*?>//sg;              $value =~ s/<[\/\w]*?>//sg;
         } else {          } else {
             $value =~ s/^\s+/<br>&nbsp;&nbsp;&nbsp;&nbsp;/mg;              $value =~ s/^\s+/<br>&nbsp;&nbsp;&nbsp;&nbsp;/mg;
               $value =~ s/(\s+)-+(\s+)/$1&#0150;$2/mg;
               $value =~ s/\s+\&#0150/&nbsp;\&#0150/mg 
                           if $value !~ /^\|/;
             $value =~ s/^\|([^\n]*)/<pre>$1<\/pre>/mg;              $value =~ s/^\|([^\n]*)/<pre>$1<\/pre>/mg;
             $value =~ s/\s+-+\s+/&nbsp;&#0150; /mg;  
             $value =~ s/(http:\/\/\S+[^\s\)\(\,\.])/<a href="$1">$1<\/a>/g if $header !~ /^á×ÔÏ/;              $value =~ s/(http:\/\/\S+[^\s\)\(\,\.])/<a href="$1">$1<\/a>/g if $header !~ /^á×ÔÏ/;
 #           $value =~ s/(http:\/\/(?:\w+.)+[\w\\\~]+(\?[^\s.]+)?)/<a href="$1">$1<\/a>/g if $header !~ /^á×ÔÏ/;  #           $value =~ s/(http:\/\/(?:\w+.)+[\w\\\~]+(\?[^\s.]+)?)/<a href="$1">$1<\/a>/g if $header !~ /^á×ÔÏ/;
 #           $value =~ s/(\s)"/$1&#147;/mg;  #           $value =~ s/(\s)"/$1&#147;/mg;
Line 1439  sub Get12Random { Line 1462  sub Get12Random {
   
 sub Include_virtual {  sub Include_virtual {
         my ($fn, $output) = (@_, '');          my ($fn, $output) = (@_, '');
         return "<!--#include virtual=\"$fn\"-->" if ($opt_z);          return "\n<!--#include virtual=\"$fn\"-->\n" 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) {
                         s/<!--#include virtual="\/(.*)" -->/&Include_virtual($1)/e;                          s/<!--#include virtual="\/?([^\/].*)" -->/&Include_virtual($1)/e;
                 }                  }
                 if (/<!--#exec/o) {                  if (/<!--#exec/o) {
                         s/<!--#exec.*cmd\s*=\s*"([^"]*)".*-->/`$1`/e;                          s/<!--#exec.*cmd\s*=\s*"([^"]*)".*-->/`$1`/e;
Line 1533  sub PrintDates { Line 1556  sub PrintDates {
                 next                  next
                         if (!$array[0]);                          if (!$array[0]);
                 %Tournament = &GetTournament($dbh, $array[0]);                  %Tournament = &GetTournament($dbh, $array[0]);
                    my $textid;
                    if ($textid=$Tournament{'FileName'})
                    {
                      $textid=~s/\.txt//;
                    }
                    elsif ($textid=$Tournament{'Number'})
                    {
                         $fname=~s/\.txt//;
                         $textid="$fname.$textid";
                    }
                    else {$textid=$Tournament{'Id'}};
       $list .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) .        $list .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) .
       " " . a({href=>tourhref($Tournament{'FileName'},0,1)},        " " . a({href=>tourhref($textid,0,1)},
       $Tournament{'Title'}, $Tournament{'PlayedAt'}||''));        $Tournament{'Title'}, $Tournament{'PlayedAt'}||''));
         }          }
         $sth->finish;          $sth->finish;
Line 1823  MAIN: Line 1857  MAIN:
         POSIX::setlocale( &POSIX::LC_ALL, $thislocale );          POSIX::setlocale( &POSIX::LC_ALL, $thislocale );
         my($i, $tour);          my($i, $tour);
         my($text) = (param('text')) ? 1 : 0;          my($text) = (param('text')) ? 1 : 0;
         if (param('qid') && (param('qid')=~/^\d+$/)) {          $tour = (param('tour')) ? param('tour') : 0;
           my $texttour=$tour;
           my ($sth,$dbh);
           $dbh = DBI->connect("DBI:mysql:chgk", "piataev", "")
                   or do {
                           print h1("÷ÒÅÍÅÎÎÙÅ ÐÒÏÂÌÅÍÙ") . "âÁÚÁ ×ÏÐÒÏÓÏ× ×ÒÅÍÅÎÎÏ ÎÅ
                           ÒÁÂÏÔÁÅÔ. úÁÈÏÄÉÔÅ ÐÏÐÏÚÖÅ.";
                           print &Include_virtual("$reklama") if $url!~/localhost/;
                       print end_html;
                           die "Can't connect to DB chgk\n";
                   };
   
   
           if (param('qid') && (param('qid')=~/^\d+$/) || $tour && $tour=~/^\d+$/) {
            my $destination='http://db.chgk.info/search.html';             my $destination='http://db.chgk.info/search.html';
 #               print header (-'Content-Type' => 'text/html',  #               print header (-'Content-Type' => 'text/html',
 #                -'Location:'=> 'http:\\db.chgk.info');  #                -'Location:'=> 'http:\\db.chgk.info');
Line 1831  MAIN: Line 1878  MAIN:
                 exit                  exit
         }          }
   
         if ($text) {          if ($tour && !param('qnumber') && (!param('answers')||(param('answers')<=1)))
           {       
                   my $n=param('tour');
                   $n=~s/.txt$//;        
                   my $gr=($n=~/^[A-Z]/) || (-e "$realHTMLDIR$n.html");
                   my $destination=tourhref($tour,param('answers')||0,$gr);
                   my $d=$destination;
                   $d=~s/$HTMLDIR/$realHTMLDIR/;
   #               print header.$destination;
                   print header."$d|".(-e "$realHTMLDIR$n.html");
                   if (-e $d) {
                           Redirect($destination);
                           exit
                   }
                   $d=~s/\.\d+//;
                   $destination=~s/\.\d+//;
   print br.br.$d;
                   if (-e $d) {
                           Redirect($destination);
                           exit
                   }
   
           }
   
           if ($tour !~ /^[0-9]*$/) {          
                       if ($tour=~/\./)
                       {
                           my ($fname,$n)= split /\./ , $tour;
   
                           $sth = $dbh->prepare(
                          "SELECT t2.Id FROM Tournaments as t1, 
                           Tournaments as t2 
                           WHERE (t1.FileName = '$fname.txt' OR t1.FileName='$fname')
                           AND t1.Id=t2.ParentId AND t2.Number=$n");
                       }   
                       else 
                           {
                             $sth = $dbh->prepare("SELECT Id FROM Tournaments
                                        WHERE FileName = '$tour.txt' OR 
                                          FileName = '$tour'");
                           }
                       $sth->execute;
                       $tour = ($sth->fetchrow)[0];
                       $sth->finish;
           }
   
   
           if ($text && !param ('comp')) {
                 print header('text/plain');                  print header('text/plain');
         } else {print header;}          } elsif (!param('comp')) {print header;}
         my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "")  
                 or do {  
                         print h1("÷ÒÅÍÅÎÎÙÅ ÐÒÏÂÌÅÍÙ") . "âÁÚÁ ×ÏÐÒÏÓÏ× ×ÒÅÍÅÎÎÏ ÎÅ  
                         ÒÁÂÏÔÁÅÔ. úÁÈÏÄÉÔÅ ÐÏÐÏÚÖÅ.";  
                         print &Include_virtual("$reklama") if $url!~/localhost/;  
                     print end_html;  
                         die "Can't connect to DB chgk\n";  
                 };  
           my $sstr=param('sstr');            my $sstr=param('sstr');
           $opt_z||=param("makehtml");            $opt_z||=param("makehtml");
           if (param('qid')) {            if (param('qid')) {
Line 1932  th {font-size: x-small; font-family : sa Line 2018  th {font-size: x-small; font-family : sa
                   }                    }
                   $sth->finish;                    $sth->finish;
         }          }
                 $tour = (param('tour')) ? param('tour') : 0;  
                 my $sth;  
                 if ($tour !~ /^[0-9]*$/) {  
                     if ($tour=~/\./)  
                     {  
                         my ($fname,$n)= split /\./ , $tour;  
   
                         $sth = $dbh->prepare(  
                        "SELECT t2.Id FROM Tournaments as t1,   
                         Tournaments as t2   
                         WHERE (t1.FileName = '$fname.txt' OR t1.FileName='$fname')  
                         AND t1.Id=t2.ParentId AND t2.Number=$n");  
                     }     
                     else   
                         {  
                           $sth = $dbh->prepare("SELECT Id FROM Tournaments  
                                      WHERE FileName = '$tour.txt' OR   
                                        FileName = '$tour'");  
                         }  
                     $sth->execute;  
                     $tour = ($sth->fetchrow)[0];  
                     $sth->finish;  
                 }  
   
   
         if (param('rand')) {          if (param('rand')) {
Line 2002  EOT Line 2065  EOT
         elsif (param('getfile')){          elsif (param('getfile')){
            $globaloutput.=&writefile             $globaloutput.=&writefile
         } elsif (param('all')) {          } elsif (param('all')) {
            my $destination='http://db.chgk.info/all.html';  #          my $destination='http://db.chgk.info/all.html';
                 Redirect($destination);  #               Redirect($destination);
                 exit;  #                exit;
 #               $globaloutput.=&PrintAll($dbh, 0);                  $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')) {
             $globaloutput.="Content-Type: application/octet-stream\n";              print "Content-Type: application/octet-stream\n";
             $globaloutput.="Content-Type: application/force-download\n";              print  "Content-Type: application/force-download\n";
             $globaloutput.="Content-Type: application/download\n";              print  "Content-Type: application/download\n";
             $globaloutput.="Content-Type: application/x-zip-compressed; name=db.zip\n";              print  "Content-Type: application/x-zip-compressed; name=$texttour.zip\n";
             $globaloutput.="Content-Disposition: attachment; filename=db.zip \n\n";              print "Content-Disposition: attachment; filename=$texttour.zip \n\n";
             $tour ||= 0;              $tour ||= 0;
             my (@files) = &PrintArchive($dbh, $tour);              my (@files) = &PrintArchive($dbh, $tour);
             WriteFile($dbh,$_) foreach @files;              WriteFile($dbh,$_) foreach @files;
             open F, "$ZIP -j - @files |";              open F, "$ZIP -j - @files |";
             binmode(F);              binmode(F);
             binmode(STDOUT);              binmode(STDOUT);
             $globaloutput.= join "",<F>;              print join "",<F>;
             close F;              close F;
             $dbh->disconnect;              $dbh->disconnect;
             exit;              exit;
Line 2055  EOT Line 2118  EOT
         else {          else {
                   $opt_z=1;                    $opt_z=1;
                   $url="http://db.chgk.info/cgi-bin/db.cgi";                    $url="http://db.chgk.info/cgi-bin/db.cgi";
                   open TS, "timestamp";                    open TS, $timestamp;
                   my $d=$dbh->quote(<TS>);                    my $d=$dbh->quote(<TS>);
                   close TS;                    close TS;
                   open FF, ">${realHTMLDIR}index.html" or die "ERROR! - ${HTMLDIR}index.html\n";                    open FF, ">${realHTMLDIR}index.html" or die "ERROR! - ${HTMLDIR}index.html\n";
Line 2077  EOT Line 2140  EOT
 #                     FROM Tournaments as t1, Tournaments as t2  #                     FROM Tournaments as t1, Tournaments as t2
 #                    WHERE t1.CreatedAt>$d AND t2.ParentId=t1.Id GROUP BY t1.Id");  #                    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   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");   ON t2.ParentId=t1.id WHERE t1.CreatedAt>=$d GROUP BY t1.Id");
                   $sth->execute;                    $sth->execute;
                   my ($Id,$fname,$type,$c);                    my ($Id,$fname,$type,$c);
                   while (($Id,$fname,$type,$c)=$sth->fetchrow,$Id) {                    while (($Id,$fname,$type,$c)=$sth->fetchrow,$Id) {
Removed from v.1.117  
changed lines
  Added in v.1.125

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>