#!/usr/local/bin/perl -w

=head1 NAME

loaddump.pl - скрипт для заливки 

=head1 SYNOPSIS

loaddump.pl dump


=head1 DESCRIPTION

Удаляет таблицу word2question и заливает её из файла dump,
созданного скриптом dumpRS.pl (возможно, обработанного скриптом 
dump2dump.pl)


=head1 AUTHOR

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


=cut

    use lib "../lib";
use dbchgk;
use chgkfiles;

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


open STDERR, ">errors";
open (DUMP1, $ARGV[0]) or die "0: Can not open ". $ARGV[0];
binmode(DUMP1);

checktable('word2question','delete');

print "getting and writing dump\n";

while (read(DUMP1, $w,4))
{
   print " $sch...\n" unless (++$sch%100);
   read(DUMP1,$l,4);
   read(DUMP1,$q,unpack("L",$l));
#print "w=$w; q=$q\n";
   updateword2question(unpack("L",$w),$q);
}

close (DUMP1);
