|
@ -234,7 +234,7 @@ my $order; |
|
|
my $text_window; |
|
|
my $text_window; |
|
|
my $verbosity_window; |
|
|
my $verbosity_window; |
|
|
|
|
|
|
|
|
# Make @container verbose |
|
|
# Make @container verbose, also look in generate() |
|
|
my @container; |
|
|
my @container; |
|
|
use constant METHOD => 0 ; |
|
|
use constant METHOD => 0 ; |
|
|
use constant KERNEL => 1 ; |
|
|
use constant KERNEL => 1 ; |
|
@ -263,7 +263,7 @@ my @original_container; |
|
|
my $file_dialog; |
|
|
my $file_dialog; |
|
|
|
|
|
|
|
|
# These are used in submit |
|
|
# These are used in submit |
|
|
my ($kernel, $root_image, $size); |
|
|
my ($root_image, $size); |
|
|
|
|
|
|
|
|
my $mtab; |
|
|
my $mtab; |
|
|
my ($tmp,$mnt); |
|
|
my ($tmp,$mnt); |
|
@ -2437,7 +2437,7 @@ sub lilo { |
|
|
sys("rm $tmp/initrd_image.gz") if $ok == 1; |
|
|
sys("rm $tmp/initrd_image.gz") if $ok == 1; |
|
|
sys("umount $tmp/initrd_mnt"); |
|
|
sys("umount $tmp/initrd_mnt"); |
|
|
|
|
|
|
|
|
$kernel = $container[KERNEL]; |
|
|
my $kernel = $container[KERNEL]; |
|
|
$root_image = $container[ROOT_FS]; |
|
|
$root_image = $container[ROOT_FS]; |
|
|
my $device = $container[BOOT_DEVICE]; |
|
|
my $device = $container[BOOT_DEVICE]; |
|
|
$size = $container[SIZE]; |
|
|
$size = $container[SIZE]; |
|
@ -2457,7 +2457,7 @@ sub lilo_put_it_together { |
|
|
my $B = "boot"; |
|
|
my $B = "boot"; |
|
|
# Time to do a little calculations |
|
|
# Time to do a little calculations |
|
|
my $device_size = (split(/\s+/,`df $mnt`))[8]; |
|
|
my $device_size = (split(/\s+/,`df $mnt`))[8]; |
|
|
my $boot_size = (stat($kernel))[12]/2 + (stat("$tmp/$initrd"))[12]/2; |
|
|
my $boot_size = (stat($container[KERNEL]))[12]/2 + (stat("$tmp/$initrd"))[12]/2; |
|
|
my $remain_boot = $device_size - $boot_size; |
|
|
my $remain_boot = $device_size - $boot_size; |
|
|
pb($B,1); |
|
|
pb($B,1); |
|
|
|
|
|
|
|
@ -2478,7 +2478,7 @@ sub lilo_put_it_together { |
|
|
|
|
|
|
|
|
info(0, "Copying over kernel\n"); |
|
|
info(0, "Copying over kernel\n"); |
|
|
return if |
|
|
return if |
|
|
err_custom("rm -rf $mnt/lost+found; cp $kernel $mnt/kernel", |
|
|
err_custom("rm -rf $mnt/lost+found; cp $container[KERNEL]} $mnt/kernel", |
|
|
"gBootRoot: ERROR: Could not copy over the kernel") == 2; |
|
|
"gBootRoot: ERROR: Could not copy over the kernel") == 2; |
|
|
pb($B,3); |
|
|
pb($B,3); |
|
|
|
|
|
|
|
@ -2512,15 +2512,15 @@ sub lilo_put_it_together { |
|
|
$remain_boot = $remain_boot - (stat("/boot/boot.b"))[12]/2 - 3; |
|
|
$remain_boot = $remain_boot - (stat("/boot/boot.b"))[12]/2 - 3; |
|
|
$entry5->set_text("$remain_boot k"); |
|
|
$entry5->set_text("$remain_boot k"); |
|
|
|
|
|
|
|
|
# Write out the HEREDOCS |
|
|
# Write out the HEREDOCS |
|
|
open(LC, ">$mnt/brlilo.conf") or die "Couldn't write $mnt/brlilo.conf\n"; |
|
|
open(LC, ">$mnt/brlilo.conf") or die "Couldn't write $mnt/brlilo.conf\n"; |
|
|
print LC brlilo($container[BOOT_DEVICE]); close(LC); |
|
|
print LC brlilo($container[BOOT_DEVICE]); close(LC); |
|
|
open(M, ">$mnt/message") or die "Couldn't write $mnt/message\n"; |
|
|
open(M, ">$mnt/message") or die "Couldn't write $mnt/message\n"; |
|
|
print M message(); close(M); |
|
|
print M message(); close(M); |
|
|
pb($B,5); |
|
|
pb($B,5); |
|
|
$remain_boot = $remain_boot - ( (stat("$mnt/brlilo.conf"))[12]/2 + |
|
|
$remain_boot = $remain_boot - ( (stat("$mnt/brlilo.conf"))[12]/2 + |
|
|
(stat("$mnt/message"))[12]/2 ); |
|
|
(stat("$mnt/message"))[12]/2 ); |
|
|
$entry5->set_text("$remain_boot k"); |
|
|
$entry5->set_text("$remain_boot k"); |
|
|
|
|
|
|
|
|
# Got to umount,mount, and umount again to make sure everything is |
|
|
# Got to umount,mount, and umount again to make sure everything is |
|
|
# copied over before doing lilo |
|
|
# copied over before doing lilo |
|
|