--- db/prgsrc/updateRS1.pl	2002/06/15 03:43:48	1.7
+++ db/prgsrc/updateRS1.pl	2002/08/01 01:20:47	1.9
@@ -99,10 +99,11 @@ die "No dictionaries found! Check your c
 print "Getting words...\n";
 
 print TIME "\t\t".(time-$initime)."\n";
+my $broken=0;
 
 for my $commonI(1..$times)
 {
-
+last if $broken;
 
 print "loading nests\n";
 
@@ -119,8 +120,8 @@ while ((++$sch<=$qlimit) && (($id, @ss)
                              # и вешаем в массив, индексы которого -- словоформы,
                              # а значения -- списки вопросов. 
 {
-
-   print "$sch $id\n" ;#unless (++$sch % 1);
+   if (-e "RS_stop")  {unlink("RS_stop"); $broken=1;last}
+   print "$sch $id\n" unless ($sch % 10);#unless (++$sch % 1);
    searchmark($id);
    if ($forbidden{$id}) {next};
    foreach $fieldnumber (0..$#ss) #перебираем поля
@@ -172,7 +173,6 @@ foreach $wordnumber(0..$#list)
                        $nfkvo{$nfnumber}++;
                        $a=\$neww2k{$nfnumber};
                        my $r=packword($fieldnumber, $id,$wordnumber);
-print "$word !!$r!\n";
                        $$a.=$r;
                        if (length $$a>100) {flushw2k($nfnumber)}
                    }
@@ -181,7 +181,6 @@ print "$word !!$r!\n";
                       $nfnumber=addnf(0, $f, $flag,1);
                       $newnf{uc $word}.=" $nfnumber";
                        my $r=packword($fieldnumber, $id,$wordnumber);
-print "$word !!!$r!\n";
                       $neww2k{$nfnumber}.=$r;
                    }
                }