repack-bootimg.pl

#!/usr/bin/perl -W

use strict;
use Cwd;


my $dir = getcwd;

my $usage = "repack-bootimg.pl <kernel> <ramdisk-directory> <outfile>\n";

die $usage unless $ARGV[0] && $ARGV[1] && $ARGV[2];

chdir $ARGV[1] or die "$ARGV[1] $!";

system ("find . | cpio -o -H newc | xz --check=crc32 --lzma2=dict=1MiB > $dir/ramdisk-repack.cpio.xz");

chdir $dir or die "$ARGV[1] $!";;

system ("./mkbootimg --cmdline 'no_console_suspend=1 console=null' --kernel $ARGV[0] --ramdisk ramdisk-repack.cpio.xz -o $ARGV[2]");

unlink("ramdisk-repack.cpio.xz") or die $!;

print "\nrepacked boot image written at $ARGV[1]-repack.img\n";