[BACK]Return to checkPBS.pl CVS log [TXT] [DIR] Up to [Local Repository] / db / prgsrc

Diff for /db/prgsrc/checkPBS.pl between versions 1.1 and 1.2

version 1.1, 2001/10/31 03:00:07 version 1.2, 2001/10/31 03:07:18
Line 1 Line 1
   #!/usr/bin/perl
 =head1 NAME  =head1 NAME
   
 checkPBS.pl - скрипт, проставляющий поле ProcessedBySearch на основании  checkPBS.pl - скрипт, проставляющий поле ProcessedBySearch на основании 
 информации из word2question  информации из word2question
   
   
 =head1 SYNOPSIS  =head1 SYNOPSIS
   
 checkPBS.pl  checkPBS.pl
   
 =head1 AUTHOR  =head1 AUTHOR
   
 Роман Семизаров  Роман Семизаров
   
   
 =cut  =cut
   
   
 use dbchgk;  use dbchgk;
   
 mydo ("UPDATE Questions SET ProcessedBySearch=NULL");  mydo ("UPDATE Questions SET ProcessedBySearch=NULL");
   
 getword2question;  getword2question;
   
 while (($word,$blob)=getrow,$word)  while (($word,$blob)=getrow,$word)
 {  {
   print "$sch...\n" unless (++$sch%100);    print "$sch...\n" unless (++$sch%100);
   $is{unpack("S",$_)}=1 foreach $blob=~/.(..)./sg;    $is{unpack("S",$_)}=1 foreach $blob=~/.(..)./sg;
 }  }
   
 mydo ("UPDATE Questions SET ProcessedBySearch=1 where QuestionId=$_")  mydo ("UPDATE Questions SET ProcessedBySearch=1 where QuestionId=$_")
  foreach keys %is;   foreach keys %is;
   
Removed from v.1.1  
changed lines
  Added in v.1.2

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