version 1.2, 2001/10/31 03:07:27
|
version 1.3, 2001/11/01 01:44:59
|
Line 20 dump2dump.pl input output oldtable newta
|
Line 20 dump2dump.pl input output oldtable newta
|
|
|
=cut |
=cut |
|
|
|
use lib "../lib"; |
use dbchgk; |
use dbchgk; |
|
|
open (T2, $ARGV[3]) or die "3: Can not open ". $ARGV[3]; |
open (T2, $ARGV[3]) or die "3: Can not open ". $ARGV[3]; |
Line 73 close (DUMP2);
|
Line 73 close (DUMP2);
|
print "Setting ProcessedBySearch...\n"; |
print "Setting ProcessedBySearch...\n"; |
|
|
|
|
$sch=0 |
$sch=0; |
foreach my $id (values %id) |
foreach my $id (values %id) |
{ |
{ |
print " $sch...\n" unless (++$sch%100); |
print " $sch...\n" unless (++$sch%100); |