
=head1 NAME

checkPBS.pl - скрипт, проставляющий поле ProcessedBySearch на основании 
информации из word2question


=head1 SYNOPSIS

checkPBS.pl

=head1 AUTHOR

Роман Семизаров


=cut


use dbchgk;

mydo ("UPDATE Questions SET ProcessedBySearch=NULL");

getword2question;

while (($word,$blob)=getrow,$word)
{
  print "$sch...\n" unless (++$sch%100);
  $is{unpack("S",$_)}=1 foreach $blob=~/.(..)./sg;
}

mydo ("UPDATE Questions SET ProcessedBySearch=1 where QuestionId=$_")
 foreach keys %is;

