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

Diff for /db/prgsrc/db.cgi between versions 1.56 and 1.58

version 1.56, 2001/12/31 18:05:16 version 1.58, 2002/01/13 00:32:12
Line 354  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 668  sub PrintSearch { Line 669  sub PrintSearch {
           $sth->execute;            $sth->execute;
           my ($q,$nf);            my ($q,$nf);
           ($sstr, $q,$nf)=($sth->fetchrow);            ($sstr, $q,$nf)=($sth->fetchrow);
           @Questions=unpack 'S*',$q;             @Questions=unpack 'L*',$q; 
           @allnf=unpack 'S*',$nf;                    @allnf=unpack 'L*',$nf;        
           $sth->finish;            $sth->finish;
         } else           } else 
         {          {
              @Questions=&Search($dbh, \$sstr,$metod,$all,\@allnf);               @Questions=&Search($dbh, \$sstr,$metod,$all,\@allnf);
              my $tmp=$dbh->quote(pack("S*",@Questions));               my $tmp=$dbh->quote(pack("L*",@Questions));
              my $qsstr=$dbh->quote($sstr);               my $qsstr=$dbh->quote($sstr);
              my $nf=$dbh->quote(pack("S*", @allnf));               my $nf=$dbh->quote(pack("L*", @allnf));
              my $ss=200;               my $ss=200;
              do                do 
              {               {
Line 1428  EOT Line 1429  EOT
           elsif (param('sstr')||param('was')) {            elsif (param('sstr')||param('was')) {
                 &PrintSearch($dbh, param('sstr'), param('metod'),param('was'));                  &PrintSearch($dbh, param('sstr'), param('metod'),param('was'));
                 $dbh->do("delete from lastqueries where                  $dbh->do("delete from lastqueries where
                            time_to_sec(now())-time_to_sec(t) >3600")                        (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');
Removed from v.1.56  
changed lines
  Added in v.1.58

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