viewvc.cgi/mdap/fw-info.pl

#!/usr/bin/perl -w

# fw-info.pl
#
# 04/22/07 16:33:13 CEST Dobrica Pavlinusic <dpavlin@rot13.org>

use strict;
use Data::Dump qw/dump/;

my $path = shift @ARGV || '/srv/tftp/BANT-R'; # die "Usage: $0 firmware.bin\n";

my $magic = 'BLI223QH0';

open(my $fh, $path) || die "Can't open $path: $!";
my $b;
read($fh, $b, length($magic));
die "# $path not a firmware image\n" unless ($b eq $magic);
seek($fh, 32, 0) || die "can't seek to 32: $!";
read($fh, $b, 4);
printf("%8s %s\n", join('.',unpack('CCCC', $b)), $path);

1	dpavlin	5	#!/usr/bin/perl -w
2
3			# fw-info.pl
4			#
5			# 04/22/07 16:33:13 CEST Dobrica Pavlinusic <dpavlin@rot13.org>
6
7			use strict;
8			use Data::Dump qw/dump/;
9
10	dpavlin	6	my $path = shift @ARGV \|\| '/srv/tftp/BANT-R'; # die "Usage: $0 firmware.bin\n";
11	dpavlin	5
12	dpavlin	18	my $magic = 'BLI223QH0';
13
14	dpavlin	5	open(my $fh, $path) \|\| die "Can't open $path: $!";
15	dpavlin	18	my $b;
16			read($fh, $b, length($magic));
17			die "# $path not a firmware image\n" unless ($b eq $magic);
18	dpavlin	5	seek($fh, 32, 0) \|\| die "can't seek to 32: $!";
19	dpavlin	18	read($fh, $b, 4);
20	dpavlin	21	printf("%8s %s\n", join('.',unpack('CCCC', $b)), $path);
21	dpavlin	5