--- db/prgsrc/loaddump.pl	2001/10/31 03:00:10	1.1
+++ db/prgsrc/loaddump.pl	2001/10/31 03:07:27	1.2
@@ -1,55 +1,54 @@
-
-#!/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);
+#!/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);