db/prgsrc/updateRS2.pl - diff

Return to updateRS2.pl CVS log

Up to [Local Repository] / db / prgsrc

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))
# берём по одному вопросу	# берём по одному вопросу