version 1.1, 2001/12/13 00:01:58
|
version 1.3, 2004/08/28 23:47:41
|
Line 42 use lib "../lib";
|
Line 42 use lib "../lib";
|
use chgkfiles; |
use chgkfiles; |
use Tie::Hash; |
use Tie::Hash; |
use dbchgk; |
use dbchgk; |
open (STDERR,">errors"); |
|
|
my $DUMPDIR = $ENV{DUMPDIR} || "../dump"; |
|
open (STDERR,">$DUMPDIR/errors"); |
my $initime=time; |
my $initime=time; |
open TIME, ">time"; |
open TIME, ">$DUMPDIR/time"; |
do "common.pl"; |
do "common.pl"; |
do "chgk.cnf"; |
do "chgk.cnf"; |
|
|
Line 83 my $nf;
|
Line 85 my $nf;
|
|
|
if ((uc 'а') ne 'А') {die "!Koi8-r locale not installed!\n"}; |
if ((uc 'а') ne 'А') {die "!Koi8-r locale not installed!\n"}; |
|
|
getquestions(QuestionId, Question, Answer, Comments, Authors, Sources,"ProcessedBySearch IS NULL"); |
getquestions(QuestionId, Question, Answer, PassCriteria, Comments, Authors, Sources,"ProcessedBySearch IS NULL"); |
|
|
|
|
|
|
Line 128 tie %nf, 'NewStdHash';
|
Line 130 tie %nf, 'NewStdHash';
|
|
|
print "Getting words...\n"; |
print "Getting words...\n"; |
|
|
getquestions(QuestionId, Question, Answer, Comments, Authors, Sources,"ProcessedBySearch IS NULL"); |
getquestions(QuestionId, Question, Answer, PassCriteria, Comments, Authors, Sources,"ProcessedBySearch IS NULL"); |
$sch=0; |
$sch=0; |
while ((++$sch<=$qlimit) && (($id, @ss) = getrow, $id)) |
while ((++$sch<=$qlimit) && (($id, @ss) = getrow, $id)) |
# берём по одному вопросу |
# берём по одному вопросу |