Return to dumpin2out.pl CVS log

Up to [Local Repository] / db / prgsrc

added files to makefile. Added use lib "../lib";

#!/usr/bin/perl -w

=head1 NAME

dumpin2out.pl - Скрипт для создания таблицы соответствий
внутренних и независимых от заливки идентификаторов в базе 
вопросов chgk

=head1 SYNOPSIS

dumpin2out.pl output


=head1 DESCRIPTION

Каждая строка создаваемой таблицы соответствий состоит из
внутреннего и внешнего идентификатора, разделённых пробелами.
Внешний идентификатор имеет вид имя_файла.номер_тура.номер_вопроса
Например:

1               dz97a.5.14


=head1 AUTHOR

Роман Семизаров


=cut

    use lib "../lib";

use dbchgk;
use chgkfiles;



if (!$ARGV[0])
{
   print "Usage: dumpin2out.pl output\n";
   exit;
}

open IN2OUT, '>'.$ARGV[0] or die "Can not open ".$ARGV[0];


my $condition=$ARGV[1] && ($ARGV[1] eq 'RS') ? "ProcessedBySearch=1" : '1';

getquestions(QuestionId, $condition);

while ($qid=getrow,$qid)
{ 
   print "$sch...\n" unless (++$sch%1000);
   $i2o=in2out($qid);
   write IN2OUT;
}


format IN2OUT =
@<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$qid, $i2o
.