#!/usr/bin/perl
=head1 NAME

checkPBS.pl - скрипт, проставляющий поле ProcessedBySearch на основании 
информации из word2question


=head1 SYNOPSIS

checkPBS.pl

=head1 AUTHOR

Роман Семизаров


=cut

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

mydo ("UPDATE Questions SET ProcessedBySearch=NULL");

getword2question;

while (($word,$blob)=getrow,$word)
{
  print "$sch...\n" unless (++$sch%100);
  $is{unpack("L",$_) & 0xFFFFF}=1 foreach $blob=~/(...)./sg;
}

mydo ("UPDATE Questions SET ProcessedBySearch=1 where QuestionId=$_")
 foreach keys %is;