mirror of
https://github.com/xcat2/xNBA.git
synced 2024-12-16 08:11:31 +00:00
41 lines
872 B
Perl
41 lines
872 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
use constant SYSSIZE_LOC => 500; # bytes from beginning of boot block
|
||
|
|
use constant MINSIZE => 32768;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
use bytes;
|
||
|
|
|
||
|
|
$#ARGV >= 1 or die "Usage: $0 liloprefix file ...\n";
|
||
|
|
open(L, "$ARGV[0]") or die "$ARGV[0]: $!\n";
|
||
|
|
undef($/);
|
||
|
|
my $liloprefix = <L>;
|
||
|
|
close(L);
|
||
|
|
length($liloprefix) >= 512 or die "LILO prefix too short\n";
|
||
|
|
shift(@ARGV);
|
||
|
|
my $totalsize = 0;
|
||
|
|
for my $file (@ARGV) {
|
||
|
|
next if (! -f $file or ! -r $file);
|
||
|
|
$totalsize += -s $file;
|
||
|
|
}
|
||
|
|
my $pad = 0;
|
||
|
|
if ($totalsize < MINSIZE) {
|
||
|
|
$pad = MINSIZE - $totalsize;
|
||
|
|
$totalsize = MINSIZE;
|
||
|
|
}
|
||
|
|
print STDERR "LILO payload is $totalsize bytes\n";
|
||
|
|
$totalsize += 16;
|
||
|
|
$totalsize >>= 4;
|
||
|
|
substr($liloprefix, SYSSIZE_LOC, 2) = pack('v', $totalsize);
|
||
|
|
print $liloprefix;
|
||
|
|
for my $file (@ARGV) {
|
||
|
|
next unless open(I, "$file");
|
||
|
|
undef($/);
|
||
|
|
my $data = <I>;
|
||
|
|
print $data;
|
||
|
|
close(I);
|
||
|
|
}
|
||
|
|
print "\x0" x $pad;
|
||
|
|
exit(0);
|