db/prgsrc/dump2dump.pl - diff

Return to dump2dump.pl CVS log

Up to [Local Repository] / db / prgsrc

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);