Parent Directory | Revision Log | Patch
revision 75 by dpavlin, Sun Nov 18 14:54:00 2007 UTC | revision 87 by dpavlin, Wed Dec 5 23:21:04 2007 UTC | |
---|---|---|
# | Line 36 sub firmware { | Line 36 sub firmware { |
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 ) { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |