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'); |