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

Diff for /db/prgsrc/db.cgi between versions 1.71 and 1.72

version 1.71, 2002/08/01 23:14:00 version 1.72, 2002/08/04 11:25:10
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;
 open STDERR, ">>errors1";  open STDERR, ">/var/tmp/errors1";
 my $printqueries=0;  my $printqueries=0;
 my %forbidden=();  my %forbidden=();
 my $debug=0; #added by R7  my $debug=0; #added by R7
Line 15  if (param('debug')) {$debug=1; $printque Line 15  if (param('debug')) {$debug=1; $printque
 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', 'á×ÔÏÒ', 
                   'Sources', 'éÓÔÏÞÎÉË','old','óÔÁÒÙÊ','rus','îÏ×ÙÊ');                    'Sources', 'éÓÔÏÞÎÉË','old','óÔÁÒÙÊ','rus','îÏ×ÙÊ',
                     'chgk', 'þçë', 'brain', 'âÒÅÊÎ-ÒÉÎÇ','game', 'ó×ÏÑ ÉÇÒÁ', 
                     'ehruditka', 'üÒÕÄÉÔËÁ', 'beskrylka', 'âÅÓËÒÙÌËÁ'
   );
 my %searchin;  my %searchin;
 my $rl=qr/[ÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔØÂÀ£]/;  my $rl=qr/[ÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔØÂÀ£]/;
 my $RL=qr/[êãõëåîçûýúèÿüöäìïòðá÷ùæñþóíéôøâà³]/;  my $RL=qr/[êãõëåîçûýúèÿüöäìïòðá÷ùæñþóíéôøâà³]/;
Line 38  my $all=param('all'); Line 41  my $all=param('all');
 $all=0 if lc $all eq 'no';  $all=0 if lc $all eq 'no';
 my ($PWD) = `pwd`;  my ($PWD) = `pwd`;
 chomp $PWD;  chomp $PWD;
 my ($SRCPATH) = "$PWD/../dimrub/src";  my ($SRCPATH) = "/home/piataev/public_html/dimrub/src";
 my ($ZIP) = "/home/piataev/bin/zip";  my ($ZIP) = "/usr/local/bin/zip";
 my $DUMPFILE = "/tmp/chgkdump";  my $DUMPFILE = "/tmp/chgkdump";
 my ($SENDMAIL) = "/usr/sbin/sendmail";  my ($SENDMAIL) = "/usr/sbin/sendmail";
 my ($TMPDIR) = "/tmp";  my ($TMPDIR) = "/var/tmp";
 my ($TMSECS) = 30*24*60*60;  my ($TMSECS) = 30*24*60*60;
 my (%RevMonths) =  my (%RevMonths) =
         ('Jan', '0', 'Feb', '1', 'Mar', '2', 'Apr', '3', 'May', '4', 'Jun', '5',          ('Jan', '0', 'Feb', '1', 'Mar', '2', 'Apr', '3', 'May', '4', 'Jun', '5',
Line 170  sub printform Line 173  sub printform
   @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],
              'false',\%rusfieldname);               'false',\%rusfieldname);
     @df=param('type');
     @df=('chgk','brain','game','ehruditka','beskrylka') unless @df;
   
     my $types=checkbox_group('type',['chgk','brain','game','ehruditka','beskrylka'], [@df],
                'false',\%rusfieldname);
   my $metod=radio_group(-name=>'metod',-values=>['old','rus'],    my $metod=radio_group(-name=>'metod',-values=>['old','rus'],
                        -default=>(param('metod')||'rus'),                         -default=>(param('metod')||'rus'),
                        -labels=>\%rusfieldname);                         -labels=>\%rusfieldname);
Line 188  table(Tr Line 195  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(" "x5),    td({-valign=>'TOP'},$fields), 
     td({-valign=>'TOP'},(' 'x 1).'ôÉÐÙ:'),
     td({-valign=>'TOP'},$types), td(" "x5),
   td({-valign=>'TOP'},$qnumber)    td({-valign=>'TOP'},$qnumber)
 )   ) 
 )  )
Line 531  sub Search { Line 540  sub Search {
           } else {            } else {
                 $sstr = join " OR $f LIKE ", @sar;                  $sstr = join " OR $f LIKE ", @sar;
           }            }
             
    my $query;     my $query;
                $query="SELECT QuestionId FROM Questions                 $query="SELECT QuestionId FROM Questions
                 WHERE $f LIKE $sstr ORDER BY QuestionId";                  WHERE ($f LIKE $sstr) AND (".&makewhere.") ORDER BY QuestionId";
   
   
 print $query if $printqueries;  print $query if $printqueries;
Line 547  print $query if $printqueries; Line 556  print $query if $printqueries;
         }          }
         $sth->finish;          $sth->finish;
 print "@Questions" if $printqueries;  print "@Questions" if $printqueries;
           
         return @Questions;          return @Questions;
 }  }
   
   sub makewhere {
         my @type=param('type');    
         my $type='';
   
         $type .= ($_=$TypeName{$_}) foreach @type;
         my $where=' 0 ';
         foreach (@type) {
                $where.= " OR (Type ='$_') OR (Type ='$_ä') ";
         } 
         $where.= "OR (Type='þâ')" if ($type=~/þ|â/);
         return $where;
   }
   
  # Substitute every letter by a pair (for case insensitive search).   # Substitute every letter by a pair (for case insensitive search).
  my (@letters) = qw/Áá Ââ ×÷ Çç Ää Åå Öö Úú Éé Êê Ëë Ìì Íí Îî Ïï   my (@letters) = qw/Áá Ââ ×÷ Çç Ää Åå Öö Úú Éé Êê Ëë Ìì Íí Îî Ïï
  Ðð Òò Óó Ôô Õõ Ææ Èè Ãã Þþ Ûû Ýý Øø Ùù Üü Àà Ññ/;   Ðð Òò Óó Ôô Õõ Ææ Èè Ãã Þþ Ûû Ýý Øø Ùù Üü Àà Ññ/;
Line 579  sub PrintList { Line 602  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');          my $sstr=param('sstr')||'';
         $qs=~s/sstr=[^\&]+/sstr=$sstr/;          $qs=~s/sstr=[^\&]+/sstr=$sstr/;
         $qs=~s/\&was=[^\&]+//;          $qs=~s/\&was=[^\&]+//;
         $qs.="&was=$was";          $qs.="&was=$was"||'';
         if ($first>$kvo*3+1)          if ($first>$kvo*3+1)
         {          {
            $nav.=             $nav.=
Line 645  sub PrintList { Line 668  sub PrintList {
         print "$nav".br."\n";          print "$nav".br."\n";
         for (my $i = $first; $i <= $last; $i++) {          for (my $i = $first; $i <= $last; $i++) {
                 my $output = &PrintQuestion($dbh, $$Questions[$i-1], 1, 0, 1);                  my $output = &PrintQuestion($dbh, $$Questions[$i-1], 1, 0, 1);
                 if (param('metod') eq 'rus' || param('metod') eq 'proxy')                  if (param('metod') && (param('metod') eq 'rus' || param('metod') eq 'proxy'))
                 {                  {
                      $output=~s/\b($shablon)\b/\<strong\>$1\<\/strong\>/gi;                       $output=~s/\b($shablon)\b/\<strong\>$1\<\/strong\>/gi;
                 } else {                  } else {
Line 873  sub PrintTournament { Line 896  sub PrintTournament {
                   "×ÏÐÒÏÓÙ + ÏÔ×ÅÔÙ") . "]")                    "×ÏÐÒÏÓÙ + ÏÔ×ÅÔÙ") . "]")
                                 );                                  );
                 } else {                  } else {
                         $list .= dd(#a({href=>url . "?tour=$textid&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=$textid&answer=0"},                                  . " " . a({href=>url . "?tour=$textid&answer=0"},
                                 $Tournament{'Title'}. " ".                                  $Tournament{'Title'}. " ".
Line 1211  sub PrintArchive { Line 1234  sub PrintArchive {
   
         my (%Tournament) = &GetTournament($dbh, $Id);          my (%Tournament) = &GetTournament($dbh, $Id);
         my (@Tours) = &GetTours($dbh, $Id);          my (@Tours) = &GetTours($dbh, $Id);
   
         if ($Tournament{'Type'} =~ /ç/ || $Id == 0) {          if ($Tournament{'Type'} =~ /ç/ || $Id == 0) {
                 for ($i = 0; $i <= $#Tours; $i++) {                  for ($i = 0; $i <= $#Tours; $i++) {
                         push(@list ,&PrintArchive($dbh, $Tours[$i]));                          push(@list ,&PrintArchive($dbh, $Tours[$i]));
Line 1388  a({href=>url."?authors=surname"},"ÆÁÍÉÌÉ Line 1410  a({href=>url."?authors=surname"},"ÆÁÍÉÌÉ
   
 sub WriteFile {  sub WriteFile {
   my ($dbh,$fname) = @_;    my ($dbh,$fname) = @_;
     $fname=~s/\s+$//;
     $fname=~s/^\s+//;
   $fname=~s/\.txt$//;    $fname=~s/\.txt$//;
   $fname=~s/.*\/(\w+)/$1/;    $fname=~s/.*\/(\w+)/$1/;
   
   my $query= "SELECT Id, Title, Copyright, Info, URL,     my $query= "SELECT Id, Title, Copyright, Info, URL, 
                       Editors, EnteredBy, PlayedAt, CreatedAt                         Editors, EnteredBy, PlayedAt, CreatedAt 
                      from Tournaments where FileName=".$dbh->quote("$fname.txt");                       from Tournaments where FileName=".$dbh->quote("$fname.txt");
Line 1400  sub WriteFile { Line 1425  sub WriteFile {
    $Editors, $EnteredBy, $PlayedAt, $CreatedAt)=     $Editors, $EnteredBy, $PlayedAt, $CreatedAt)=
       $sth->fetchrow;        $sth->fetchrow;
   return -1 unless $Id;    return -1 unless $Id;
   open (OUT, ">$TMPDIR/$fname.txt");    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;
   my ($year,$month,$day)=split /-/, $date;    my ($year,$month,$day)=split /-/, $date;
Line 1439  sub WriteFile { Line 1464  sub WriteFile {
     my $eqauthor=1;      my $eqauthor=1;
     my $qnumber=0;      my $qnumber=0;
     my @arr;      my @arr;
     while ( @arr=$sth1->fetchrow, $arr[0])      while ( (@arr=$sth1->fetchrow), $arr[0])
     {      {
         my($i, $name) = 0;          my($i, $name);
           $i=0;
         $qnumber++;          $qnumber++;
         foreach $name (@{$sth1->{NAME}}) {          foreach $name (@{$sth1->{NAME}}) {
                 $arr[$i]=~s/^(.*?)\s*$/$1/;                  if ($arr[$i]) {
                 $Question{$tourid}[$qnumber]{$name} = $arr[$i++];                     $arr[$i]=~s/^(.*?)\s*$/$1/;
                      $Question{$tourid}[$qnumber]{$name} = $arr[$i];
                   } else {
                       $Question{$tourid}[$qnumber]{$name} = 
                      ''}
                   $i++;
         }          }
         if ($vid)          if ($vid)
         {          {
Line 1575  if ((uc 'Á') ne 'á') {print "Koi8-r loca Line 1606  if ((uc 'Á') ne 'á') {print "Koi8-r loca
                   }                    }
                   $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'
                           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;
                   }
   
   
         if (param('rand')) {          if (param('rand')) {
Line 1631  $sstr=~s/[^ÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔ Line 1684  $sstr=~s/[^ÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔ
 #              print &PrintQuestion($dbh,$qid, 1, '!');  #              print &PrintQuestion($dbh,$qid, 1, '!');
               &PrintSearch($dbh, $sstr, 'proxy');                &PrintSearch($dbh, $sstr, 'proxy');
         }          }
           elsif (param('getfile')){
           elsif (param('all')) {            print &writefile
           } elsif (param('all')) {
                 print &PrintAll($dbh, 0);                  print &PrintAll($dbh, 0);
         } elsif (param('from_year') && param('to_year')) {          } elsif (param('from_year') && param('to_year')) {
                 print &PrintDates($dbh);                  print &PrintDates($dbh);
         } elsif (param('comp')) {          } elsif (param('comp')) {
             print header(              print "Content-Type: application/octet-stream\n";
                          -'Content-Type' => 'application/x-zip-compressed; name="db.zip"',              print "Content-Type: application/force-download\n";
                          -'Content-Disposition' => 'attachment; filename="db.zip"'              print "Content-Type: application/download\n";
                          );              print "Content-Type: application/x-zip-compressed; name=db.zip\n";
             $tour = (param('tour')) ? param('tour') : 0;              print "Content-Disposition: attachment; filename=db.zip \n\n";
   #           print header(
   #                        -'Content-Type' => 'application/x-zip-compressed; name="db.zip"',
   #                        -'Content-Type' => 'application/zip',
   #                        -'Content-Disposition' => 'attachment; filename="db.zip"'
   #                        );
               $tour ||= 0;
             my (@files) = &PrintArchive($dbh, $tour);              my (@files) = &PrintArchive($dbh, $tour);
             WriteFile($dbh,$_) foreach @files;              WriteFile($dbh,$_) foreach @files;
             open F, "$ZIP -j - $SRCPATH/COPYRIGHT @files |";  #           open F, "$ZIP -j - $SRCPATH/COPYRIGHT @files |";
               open F, "$ZIP -j - @files |";
               binmode(F);
               binmode(STDOUT);
             print (<F>);              print (<F>);
             close F;              close F;
             $dbh->disconnect;              $dbh->disconnect;
Line 1661  $sstr=~s/[^ÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔ Line 1724  $sstr=~s/[^ÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔ
             exit;              exit;
   
         } else {          } else {
                 $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'  
                         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;  
                 }  
                 my $QuestionNumber=0;                  my $QuestionNumber=0;
                 my $qnum;                  my $qnum;
                 if ($qnum=param('qnumber')){                  if ($qnum=param('qnumber')){
Removed from v.1.71  
changed lines
  Added in v.1.72

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