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";

open(my $fh, $path) || die "Can't open $path: $!";
my $ver;
seek($fh, 32, 0) || die "can't seek to 32: $!";
read($fh, $ver, 4);
print dump( $ver ), dump( unpack 'CCCC', $ver ),$/;

1	#!/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	my $path = shift @ARGV \|\| '/srv/tftp/BANT-R'; # die "Usage: $0 firmware.bin\n";
11
12	open(my $fh, $path) \|\| die "Can't open $path: $!";
13	my $ver;
14	seek($fh, 32, 0) \|\| die "can't seek to 32: $!";
15	read($fh, $ver, 4);
16	print dump( $ver ), dump( unpack 'CCCC', $ver ),$/;
17