db/prgsrc/delRS.pl - diff

Return to delRS.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.1, 2001/12/04 01:49:03	version 1.3, 2002/01/13 00:32:12
Line 33 if ($#ARGV<2)	Line 33 if ($#ARGV<2)

my($dumpname, $tablename, @names)=@ARGV;	my($dumpname, $tablename, @names)=@ARGV;

open (TABLE, $tablename) or die "0: Can not open ". $tablenamename;	open (TABLE, $tablename) or die "0: Can not open ". $tablename;

open (DUMP, $dumpname) or die "0: Can not open ". $dumpname;	open (DUMP, $dumpname) or die "0: Can not open ". $dumpname;

Line 83 close (OUTDUMP);	Line 83 close (OUTDUMP);
sub s	sub s
{	{
my ($s1,$s2,$s3,$kvo) = @_;	my ($s1,$s2,$s3,$kvo) = @_;
$unpacked=unpack("S",$s2);	$unpacked=unpack("S",$s2)\|(($s1 & 0xF0) << 12);
my $id=$outid{$unpacked};	my $id=$outid{$unpacked};
if (!$id) {$$kvo-=4;return ""} else {return "$s1$s2$s3"}	if (!$id) {$$kvo-=4;return ""} else {return "$s1$s2$s3"}