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=$_") |