[package] base-files: update sysctl.conf for modern kernels

[openwrt.git] / target / linux / rdc / image / mkimg_sitecom.pl

diff --git a/target/linux/rdc/image/mkimg_sitecom.pl b/target/linux/rdc/image/mkimg_sitecom.pl
old mode 100644 (file)
new mode 100755 (executable)
index 4dd4a39..cfd5e65
--- a/target/linux/rdc/image/mkimg_sitecom.pl
+++ b/target/linux/rdc/image/mkimg_sitecom.pl
@@ -1,17 +1,11 @@
 #!/usr/bin/perl
 
 #!/usr/bin/perl
 

-$bzimgsize = -s @ARGV[0];
-$padding = 4 - ($bzimgsize + 2) % 4;
-if ($padding == 4) {
-       $padding = 0; }

 open (bzimg, @ARGV[0]);
 while (<bzimg>) { $i .= $_; }
 open (bzimg, @ARGV[0]);
 while (<bzimg>) { $i .= $_; }

-$i .= "\0"x$padding;

 $i .= pack "v", -(unpack "%v*", $i); 
 print "CSYS";
 print pack("V", length($i));
 print pack("V", 0);
 $i .= pack "v", -(unpack "%v*", $i); 
 print "CSYS";
 print pack("V", length($i));
 print pack("V", 0);

-#-s @ARGV[1]

 print "WRRM";
 print pack("V", length($i));
 print $i;
 print "WRRM";
 print pack("V", length($i));
 print $i;