--- db/prgsrc/chgk.cnf	2001/11/20 14:38:37	1.3
+++ db/prgsrc/chgk.cnf	2004/01/13 09:56:20	1.6
@@ -1,29 +1,41 @@
 #!/usr/bin/perl
+
 $dir='result/';
 
 $debug=0;
 
+$dictdir       =  "../dict/";
+
+$authorsfile   =  "${dictdir}authors";
+
+$nicksfile     =  "${dictdir}nicks";
+
+$ssnicksfile   =  "${dictdir}ssnicks";
+
 $maxqsize      = 3;  #максимальный размер учитываемых закавыченных фраз
 
 $maxwsize      = 30;  #максимальный размер учитываемых слов
 
-$stderr        = "errors";
 
-$unknown       = "unknown";
+$DUMPDIR = $ENV{DUMPDIR} || "../dump";
+
+$stderr        = "$DUMPDIR/errors";
+
+$unknown       = "$DUMPDIR/unknown";
 
-$dumprs        = "dumprs";
+$dumprs        = "$DUMPDIR/dumprs";
 
-$warnings      = "warnings";
+$warnings      = "$DUMPDIR/warnings";
 
-$in2out        = "in2out";
+$in2out        = "$DUMPDIR/in2out";
 
 $minstop=200000;
 
-$qnumber       = 500000; # обрабатываются вопросы, ID которых меньше чем $qnumber.
+$qnumber       = 1000000; # обрабатываются вопросы, ID которых меньше чем $qnumber.
                          # Чтобы обработать все вопросы, просто укажите 
                          # достаточно большое значение
 
-$newdict       = "../dict/ndict.koi";
+$newdict       = "${dictdir}ndict.koi";
 
 $kwords        = "${dir}kwords";
 
@@ -49,7 +61,7 @@ $wordlist      = "${dir}wordlist";
 
 $dwordlist     = "${dir}dwordlist";
 
-@dictionaries  = ('../dict/dict.koi', '../dict/mydict.koi',$newdict);
+@dictionaries  = ("${dictdir}dict.koi", "${dictdir}mydict.koi",$newdict);
 
 $newdictionary = 'newdict.koi';