--- fw-info.pl	2007/04/23 17:41:34	16
+++ fw-info.pl	2007/04/23 18:04:04	18
@@ -9,9 +9,13 @@
 
 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 $ver;
+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, $ver, 4);
-print join('.',unpack('CCCC', $ver)),"\t$path\n";
+read($fh, $b, 4);
+print join('.',unpack('CCCC', $b)),"\t$path\n";