| Subject: | MfgCVCData |
When the config file contains the MfgCVCData the decode succeeds but
encoding it back pops out an error.
Please see attached the dec_enc.pl script used to decode and encode back
the same content. When running I hit the following errors:
% ./dec_enc.pl rt_bugs_sample.bin
Integer overflow in hexadecimal number at
/usr/lib/perl5/site_perl/5.8.8/DOCSIS/ConfigFile.pm line 295.
Hexadecimal number > 0xffffffff non-portable at
/usr/lib/perl5/site_perl/5.8.8/DOCSIS/ConfigFile.pm line 295.
ERROR - Value too high: MfgCVCData=inf
Integer overflow in hexadecimal number at
/usr/lib/perl5/site_perl/5.8.8/DOCSIS/ConfigFile.pm line 295.
Hexadecimal number > 0xffffffff non-portable at
/usr/lib/perl5/site_perl/5.8.8/DOCSIS/ConfigFile.pm line 295.
ERROR - Value too high: MfgCVCData=inf
Integer overflow in hexadecimal number at
/usr/lib/perl5/site_perl/5.8.8/DOCSIS/ConfigFile.pm line 295.
Hexadecimal number > 0xffffffff non-portable at
/usr/lib/perl5/site_perl/5.8.8/DOCSIS/ConfigFile.pm line 295.
ERROR - Value too high: MfgCVCData=inf
Integer overflow in hexadecimal number at
/usr/lib/perl5/site_perl/5.8.8/DOCSIS/ConfigFile.pm line 295.
Hexadecimal number > 0xffffffff non-portable at
/usr/lib/perl5/site_perl/5.8.8/DOCSIS/ConfigFile.pm line 295.
ERROR - Value too high: MfgCVCData=inf
ERROR - Value too high: RequestOrTxPolicy=00000060
ERROR - Value too low: IpTosOverwrite=0000
I was happy to see that this perl module came out. I was looking for it
since a long time ago. Congratulation!
% perl -v
This is perl, v5.8.8 built for i386-linux-thread-multi
Copyright 1987-2006, Larry Wall
Perl may be copied only under the terms of either the Artistic License
or the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page
| Subject: | rt_bugs_sample.bin |
Message body not shown because it is not plain text.
| Subject: | dec_enc.pl |
#!/usr/bin/perl -w
use DOCSIS::ConfigFile;
use Data::Dumper;
if($#ARGV ne 0) {
print "Missing file argument!\n";
exit(1);
}
my $filename=$ARGV[0];
my $outfile=$filename.".out";
die if(!open(OUT, "> $outfile"));
my $obj = DOCSIS::ConfigFile->new(
shared_secret => 'foobar',
advanced_output => 1,
);
my $decoded = $obj->decode($filename);
my $encoded=$obj->encode($decoded);
print OUT $encoded;
close(OUT);
exit(0);