Return to checkPBS.pl CVS log

Up to [Local Repository] / db / prgsrc

added files to makefile. Added use lib "../lib";

    1: #!/usr/bin/perl
    2: =head1 NAME
    3: 
    4: checkPBS.pl - скрипт, проставляющий поле ProcessedBySearch на основании 
    5: информации из word2question
    6: 
    7: 
    8: =head1 SYNOPSIS
    9: 
   10: checkPBS.pl
   11: 
   12: =head1 AUTHOR
   13: 
   14: Роман Семизаров
   15: 
   16: 
   17: =cut
   18: 
   19:     use lib "../lib";
   20: use dbchgk;
   21: 
   22: mydo ("UPDATE Questions SET ProcessedBySearch=NULL");
   23: 
   24: getword2question;
   25: 
   26: while (($word,$blob)=getrow,$word)
   27: {
   28:   print "$sch...\n" unless (++$sch%100);
   29:   $is{unpack("S",$_)}=1 foreach $blob=~/.(..)./sg;
   30: }
   31: 
   32: mydo ("UPDATE Questions SET ProcessedBySearch=1 where QuestionId=$_")
   33:  foreach keys %is;
   34: