#!/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 | gzip > $dir/ramdisk-repack.cpio.gz"); chdir $dir or die "$ARGV[1] $!";; system ("mkbootimg --cmdline 'console=ttyFIQ0 no_console_suspend' --kernel $ARGV[0] --ramdisk ramdisk-repack.cpio.gz --base 30000000 --pagesize 4096 -o $ARGV[2]"); unlink("ramdisk-repack.cpio.gz") or die $!; print "\nrepacked boot image written at $ARGV[1]-repack.img\n";