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

Diff for /db/prgsrc/updateRS3.pl between versions 1.1 and 1.4

version 1.1, 2001/12/13 00:01:58 version 1.4, 2003/02/13 16:27:32
Line 27  cicles_number=1. Line 27  cicles_number=1.
   
 Создание в рабочем каталоге файла RS_pause прерывает работу с сохранением   Создание в рабочем каталоге файла RS_pause прерывает работу с сохранением 
 хэшей, это означает, что при следующем запуске скрипт продолжит работу с места  хэшей, это означает, что при следующем запуске скрипт продолжит работу с места
 остановки (обнулится только счётчик счётчик обработанных вопросов).   остановки (обнулится только счётчик обработанных вопросов). 
 Продолжить крайне желательно, потому что у обработанные вопросах   Продолжить крайне желательно, потому что у обработанные вопросах 
 уже установлен флаг ProcessedBySearch, но реально информация о них в базу  уже установлен флаг ProcessedBySearch, но реально информация о них в базу
 ещё не занесена.  ещё не занесена.
Line 53  use POSIX qw (locale_h); Line 53  use POSIX qw (locale_h);
 use lib "../lib";  use lib "../lib";
 use chgkfiles;  use chgkfiles;
 use dbchgk;  use dbchgk;
 open (STDERR,">errors");  my $DUMPDIR = $ENV{DUMPDIR} || "../dump";
   open (STDERR,">$DUMPDIR/errors");
 my $initime=time;  my $initime=time;
 open TIME, ">time";   open TIME, ">$DUMPDIR/time"; 
 do "common.pl";  do "common.pl";
 do "chgk.cnf";  do "chgk.cnf";
   
 use DB_File;  use DB_File;
   
   
   $stopslovo{'В'}=1;
   $stopslovo{'С'}=1;
   $stopslovo{'ИЗ'}=1;
   $stopslovo{'НА'}=1;
   $stopslovo{'И'}=1;
   $stopslovo{'К'}=1;
   
   
 $qlimit=shift||500;  $qlimit=shift||500;
Line 174  foreach $wordnumber(0..$#list) Line 181  foreach $wordnumber(0..$#list)
       {        {
            $word=uc $list[$wordnumber];             $word=uc $list[$wordnumber];
            next if length $word>$maxwsize;             next if length $word>$maxwsize;
              next if $stopslovo{$word};
            if (my $n=$nf{$word}||$newnf{$word})              if (my $n=$nf{$word}||$newnf{$word}) 
            {             {
                 @n= split ' ',$n;                  @n= split ' ',$n;
Removed from v.1.1  
changed lines
  Added in v.1.4

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