13 |
my @images = @ARGV; |
my @images = @ARGV; |
14 |
push @images, '/srv/tftp/BANT-R' unless @images; |
push @images, '/srv/tftp/BANT-R' unless @images; |
15 |
|
|
16 |
my $magic = 'BLI223QH0'; |
my $magic = 'BLI223Q'; |
17 |
|
|
18 |
sub get_from { |
sub get_from { |
19 |
my ($fh,$seek,$len) = @_; |
my ($fh,$seek,$len) = @_; |
36 |
my $board = get_from($fh, 0x136, 6); |
my $board = get_from($fh, 0x136, 6); |
37 |
my $name = get_from($fh, 0x144, 15); |
my $name = get_from($fh, 0x144, 15); |
38 |
chomp($name); |
chomp($name); |
39 |
|
$name =~ s/\W+/ /gs; |
40 |
$version = join('.',unpack('CCCC', $version)); |
$version = join('.',unpack('CCCC', $version)); |
41 |
printf("%8s %6s %s\t%s\n", $version, $board, $name, $path); |
printf("%-8s %6s %-16s %s\n", $version, $board, $name, $path); |
42 |
} |
} |
43 |
|
|
44 |
for my $path ( @images ) { |
for my $path ( @images ) { |