File:  [Local Repository] / db / prgsrc / checkPBS.pl
Revision 1.4: download - view: text, annotated - select for diffs - revision graph
Sun Jan 13 00:32:12 2002 UTC (22 years, 2 months ago) by roma7
Branches: MAIN
CVS tags: HEAD
Trying to fix bug-65536

#!/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;


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>