=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;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>