version 1.54, 2001/12/25 04:05:46
|
version 1.56, 2001/12/31 18:05:16
|
Line 585 sub PrintList {
|
Line 585 sub PrintList {
|
(" "x4). |
(" "x4). |
a({href=>url."?".$qs."\&first=1"},"<<").(" "x4). |
a({href=>url."?".$qs."\&first=1"},"<<").(" "x4). |
a({href=>(url."?".$qs."\&first=".($first-$kvo))},"<").(" "x4) |
a({href=>(url."?".$qs."\&first=".($first-$kvo))},"<").(" "x4) |
} |
} |
|
|
else {$nav.=' 'x15;} |
else {$nav.=' 'x15;} |
|
|
Line 668 sub PrintSearch {
|
Line 668 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 'S*',$q; |
@allnf=unpack 'S*',$nf; |
@allnf=unpack 'S*',$nf; |
$sth->finish; |
$sth->finish; |
} else |
} else |
Line 677 sub PrintSearch {
|
Line 677 sub PrintSearch {
|
my $tmp=$dbh->quote(pack("S*",@Questions)); |
my $tmp=$dbh->quote(pack("S*",@Questions)); |
my $qsstr=$dbh->quote($sstr); |
my $qsstr=$dbh->quote($sstr); |
my $nf=$dbh->quote(pack("S*", @allnf)); |
my $nf=$dbh->quote(pack("S*", @allnf)); |
|
my $ss=200; |
do |
do |
{ |
{ |
$was=int rand(32000); |
$was=int rand(32000); |
} |
} |
while (!$dbh->do ("insert into lastqueries (id,sstr,questions,allnf) |
while (--$ss && (!$dbh->do ("insert into lastqueries (id,sstr,questions,allnf) |
values ($was, $qsstr,$tmp,$nf)")); |
values ($was, $qsstr,$tmp,$nf)"))); |
|
print "Something is wrong...".br unless $ss; |
} |
} |
|
|
|
|
|
|
print p. "Время поиска: " . (time-$t) ." сек.".p; |
print p. "Время поиска: " . (time-$t) ." сек.".p; |
my ($output, $i, $suffix, $hits) = ('', 0, '', $#Questions + 1); |
my ($output, $i, $suffix, $hits) = ('', 0, '', $#Questions + 1); |
|
|