--- db/prgsrc/updateRS3.pl	2001/12/25 04:05:46	1.2
+++ db/prgsrc/updateRS3.pl	2003/02/13 16:27:32	1.4
@@ -53,15 +53,22 @@ use POSIX qw (locale_h);
 use lib "../lib";
 use chgkfiles;
 use dbchgk;
-open (STDERR,">errors");
+my $DUMPDIR = $ENV{DUMPDIR} || "../dump";
+open (STDERR,">$DUMPDIR/errors");
 my $initime=time;
-open TIME, ">time"; 
+open TIME, ">$DUMPDIR/time"; 
 do "common.pl";
 do "chgk.cnf";
 
 use DB_File;
 
 
+$stopslovo{'÷'}=1;
+$stopslovo{'ó'}=1;
+$stopslovo{'éú'}=1;
+$stopslovo{'îá'}=1;
+$stopslovo{'é'}=1;
+$stopslovo{'ë'}=1;
 
 
 $qlimit=shift||500;
@@ -174,6 +181,7 @@ foreach $wordnumber(0..$#list)
       {
            $word=uc $list[$wordnumber];
            next if length $word>$maxwsize;
+           next if $stopslovo{$word};
            if (my $n=$nf{$word}||$newnf{$word}) 
            {
                 @n= split ' ',$n;