version 1.2, 2001/10/31 03:07:27
|
version 1.4, 2002/01/13 00:32:12
|
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; |
} |
} |