--- db/prgsrc/chgk.cnf 2001/11/20 14:38:37 1.3 +++ 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 = "../dict/ndict.koi"; +$newdict = "${dictdir}ndict.koi"; $kwords = "${dir}kwords"; @@ -49,7 +58,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';