#!/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
.
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>