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