Return to checkPBS.pl CVS log

Up to [Local Repository] / db / prgsrc

KOIfication and Unixation...

#!/usr/bin/perl
=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;