#!/usr/bin/perl
$dir='result/';
$debug=0;
$dictdir = "../dict/";
$authorsfile = "${dictdir}authors";
$editorsfile = "${dictdir}authors";
$nicksfile = "${dictdir}nicks";
$ssnicksfile = "${dictdir}ssnicks";
$maxqsize = 3; #максимальный размер учитываемых закавыченных фраз
$maxwsize = 30; #максимальный размер учитываемых слов
$DUMPDIR = $ENV{DUMPDIR} || "../dump";
$stderr = "$DUMPDIR/errors";
$unknown = "$DUMPDIR/unknown";
$dumprs = "$DUMPDIR/dumprs";
$warnings = "$DUMPDIR/warnings";
$in2out = "$DUMPDIR/in2out";
$minstop=200000;
$qnumber = 1000000; # обрабатываются вопросы, ID которых меньше чем $qnumber.
# Чтобы обработать все вопросы, просто укажите
# достаточно большое значение
$newdict = "${dictdir}ndict.koi";
$kwords = "${dir}kwords";
$v2k = "${dir}v2k"; # номер вопроса -> список кл. слов
$k2v = "${dir}k2v"; # номер ключевых слов -> список вопросов
$cv2k = "${dir}cv2k"; # номер вопроса -> список номеров кл. слов
$ck2v = "${dir}ck2v"; # номер ключевого слова -> список вопросов
$warn = "${dir}warn"; # варнинги
$kquotes = "${dir}kquotes";
$ewordlist = "${dir}ewordlist";
$kwordlist = "${dir}kwordlist";
$vwordlist = "${dir}vwordlist"; # Список символосочетаний. Разделители -- пробелы.
$wordlist = "${dir}wordlist";
$dwordlist = "${dir}dwordlist";
@dictionaries = ("${dictdir}dict.koi", "${dictdir}mydict.koi",$newdict);
$newdictionary = 'newdict.koi';
$rules = 'raff.koi';
$compound_keys = 'compound_keys';
$versions = "${dir}serrors";
$nf = "${dir}gwords";
$newnf = "${dir}newgwords";
$newerrors = "${dir}newerrors";
$sorterrors = 'se.pl';
$table = "${dir}nests";
$newtable = "${dir}newnests";
$errors = "${dir}errors";
$base = 'chgk'; # Имя базы
$checkaffix = 'fw.pl';
$check = 'check.pl';
$checkword = 'cw.pl';
$singleaffix = 'sa.pl';
$info = "${dir}info";
$often = 10000;
$seldom = 0;
$ctable = "${dir}ctable";
$cnf = "${dir}cnf";
$proxlimit = 20;
$equal = "equall";
$equals = "${dir}equals.txt"; # имя файла, в который будет записываться
# список одинаковых вопросов
$vlist = "${dir}vlist"; # файл, в который будут писаться списки вопросов,
# в которых есть слово
$alike = "${dir}alike"; #кандидаты на похожесть
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>