db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.54, 2001/12/25 04:05:46	version 1.55, 2001/12/31 00:57:07
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);