db/prgsrc/checkPBS.pl - diff

Return to checkPBS.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.2, 2001/10/31 03:07:18	version 1.4, 2002/01/13 00:32:12
Line 16 checkPBS.pl	Line 16 checkPBS.pl

=cut	=cut

	use lib "../lib";
use dbchgk;	use dbchgk;

mydo ("UPDATE Questions SET ProcessedBySearch=NULL");	mydo ("UPDATE Questions SET ProcessedBySearch=NULL");
Line 26 getword2question;	Line 26 getword2question;
while (($word,$blob)=getrow,$word)	while (($word,$blob)=getrow,$word)
{	{
print "$sch...\n" unless (++$sch%100);	print "$sch...\n" unless (++$sch%100);
$is{unpack("S",$_)}=1 foreach $blob=~/.(..)./sg;	$is{unpack("L",$_) & 0xFFFFF}=1 foreach $blob=~/(...)./sg;
}	}

mydo ("UPDATE Questions SET ProcessedBySearch=1 where QuestionId=$_")	mydo ("UPDATE Questions SET ProcessedBySearch=1 where QuestionId=$_")