[BACK]Return to loaddump.pl CVS log [TXT] [DIR] Up to [Local Repository] / db / prgsrc

Diff for /db/prgsrc/loaddump.pl between versions 1.1 and 1.2

version 1.1, 2001/10/31 03:00:10 version 1.2, 2001/10/31 03:07:27
Line 1 Line 1
   #!/usr/local/bin/perl -w
 #!/usr/local/bin/perl -w  
   =head1 NAME
 =head1 NAME  
   loaddump.pl - скрипт для заливки 
 loaddump.pl - скрипт для заливки  
   =head1 SYNOPSIS
 =head1 SYNOPSIS  
   loaddump.pl dump
 loaddump.pl dump  
   
   =head1 DESCRIPTION
 =head1 DESCRIPTION  
   Удаляет таблицу word2question и заливает её из файла dump,
 Удаляет таблицу word2question и заливает её из файла dump,  созданного скриптом dumpRS.pl (возможно, обработанного скриптом 
 созданного скриптом dumpRS.pl (возможно, обработанного скриптом  dump2dump.pl)
 dump2dump.pl)  
   
   =head1 AUTHOR
 =head1 AUTHOR  
   Роман Семизаров
 Роман Семизаров  
   
   =cut
 =cut  
   
   use dbchgk;
 use dbchgk;  use chgkfiles;
 use chgkfiles;  
   if (!$ARGV[0])
 if (!$ARGV[0])  {
 {     print "Usage: loaddump.pl dump\n";
    print "Usage: loaddump.pl dump\n";     exit;
    exit;  }
 }  
   
   open STDERR, ">errors";
 open STDERR, ">errors";  open (DUMP1, $ARGV[0]) or die "0: Can not open ". $ARGV[0];
 open (DUMP1, $ARGV[0]) or die "0: Can not open ". $ARGV[0];  binmode(DUMP1);
 binmode(DUMP1);  
   checktable('word2question','delete');
 checktable('word2question','delete');  
   print "getting and writing dump\n";
 print "getting and writing dump\n";  
   while (read(DUMP1, $w,4))
 while (read(DUMP1, $w,4))  {
 {     print " $sch...\n" unless (++$sch%100);
    print " $sch...\n" unless (++$sch%100);     read(DUMP1,$l,4);
    read(DUMP1,$l,4);     read(DUMP1,$q,unpack("L",$l));
    read(DUMP1,$q,unpack("L",$l));  #print "w=$w; q=$q\n";
 #print "w=$w; q=$q\n";     updateword2question(unpack("L",$w),$q);
    updateword2question(unpack("L",$w),$q);  }
 }  
   close (DUMP1);
 close (DUMP1);  
Removed from v.1.1  
changed lines
  Added in v.1.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>