projects
/
openwrt
/
openwrt.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
cfd5e652f0c183b32f4256a772655d77f7b2234a
[openwrt/openwrt.git]
/
target
/
linux
/
x86
/
image
/
mkimg_sitecom.pl
1
#!/usr/bin/perl
2
3
open
(
bzimg
,
@ARGV
[
0
]);
4
while
(<
bzimg
>) {
$i
.=
$_
; }
5
$i
.=
pack
"v"
, -(
unpack
"
%v
*"
,
$i
);
6
print
"CSYS"
;
7
print pack
(
"V"
,
length
(
$i
));
8
print pack
(
"V"
,
0
);
9
print
"WRRM"
;
10
print pack
(
"V"
,
length
(
$i
));
11
print
$i
;