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.5, 2002/01/14 01:41:08
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);
Line 86 foreach my $id (values %id)	Line 86 foreach my $id (values %id)

sub s	sub s
{	{
	#!!!! Ne doizmeneno!!!!!!!!!
my $a=shift;	my $a=shift;
my $unpacked=unpack("S",$a);	my $unpacked=unpack("L",$a);
$unpacked=$id{$unpacked};	my $field=$unpacked && 0xF;
my $packed=pack("S",$unpacked);	$unpacked=$id{(($unpacked & 0xF0) << 12) + $unpacked & 0xFFFF};
	# my $packed=$field \| $unpacked & 0xF0) << 12) + $unpacked & 0xFFFF);
$packed;	$packed;
}	}