version 1.2, 2001/10/31 03:07:27
|
version 1.4, 2001/11/20 21:33:36
|
Line 23 dump2dump.pl)
|
Line 23 dump2dump.pl)
|
|
|
=cut |
=cut |
|
|
|
use lib "../lib"; |
use dbchgk; |
use dbchgk; |
use chgkfiles; |
use chgkfiles; |
|
|
Line 38 open STDERR, ">errors";
|
Line 38 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','deletedata'); |
|
|
print "getting and writing dump\n"; |
print "getting and writing dump\n"; |
|
|