--- db/prgsrc/chgk.cnf 2001/10/31 03:07:18 1.2 +++ db/prgsrc/chgk.cnf 2001/12/05 00:56:57 1.4 @@ -1,8 +1,17 @@ #!/usr/bin/perl + $dir='result/'; $debug=0; +$dictdir = "../dict/"; + +$authorsfile = "${dictdir}authors"; + +$nicksfile = "${dictdir}nicks"; + +$ssnicksfile = "${dictdir}ssnicks"; + $maxqsize = 3; #максимальный размер учитываемых закавыченных фраз $maxwsize = 30; #максимальный размер учитываемых слов @@ -23,7 +32,7 @@ $qnumber = 500000; # обрабатываютс # Чтобы обработать все вопросы, просто укажите # достаточно большое значение -$newdict = "ndict.koi"; +$newdict = "${dictdir}ndict.koi"; $kwords = "${dir}kwords"; @@ -49,7 +58,7 @@ $wordlist = "${dir}wordlist"; $dwordlist = "${dir}dwordlist"; -@dictionaries = ('dict.koi', 'mydict.koi',$newdict); +@dictionaries = ("${dictdir}dict.koi", "${dictdir}mydict.koi",$newdict); $newdictionary = 'newdict.koi';