Browse Source

Adds check for lilo and ash so they don't always have to be in depends, though

ash stays there lilo is no in Recommends.
master
freesource 23 years ago
parent
commit
df6e4aecf3
  1. 99
      gbootroot

99
gbootroot

@ -133,6 +133,32 @@ $main::sudo = "sudo";
# CHANGES
#
# 1.2.14 - 10/24/2001
# * Append field in the ABS now saves state for non-root users.
# Before it only remembered state if lilo.conf could
# actually be read, ofcourse, this wasn't an option for
# non-root users. The beginnings of non-root boot and root_fs
# creation capabilities have been put into place, but haven't
# been fully implemented. The end result of this is that
# directories created in $tmp are now static for non-root
# users and now use the userid number to keep track of
# different non-root users.
# * The author of swim came out with a new version he now calls
# dswim. This means Debian System Wide Information Manager,
# but the "d" could also stand for different. Changes have
# been made to make_debian to facilitate this much more stable
# version of swim, and better non-installed package checks
# have been implemented in make_debian.
# * The control dependencies have been vastly improved, and
# reflect the change from swim to dswim. Yard_chrooted_tests
# is now put in a gbootroot specific directory since it is
# unique to gbootroot.
# * The lastest user-mode-linux is included: 2.4.12
# * Updated the documentation, and it includes a better
# explanation in step 7 for "How can I test gBootRoot?"
# * Added checks for the existence of ash and lilo for the 2
# disk compression method.
#
# 1.2.13 - 09/28/2001
# * Renamed "lilo" Boot method to "2 disk compression."
# * Added three new entry fields and one radio button to manage
@ -666,6 +692,7 @@ $item->show();
$item->signal_connect( 'activate',
sub { $entry->set_text("2 disk compression");
$container[METHOD] = "2 disk compression";
two_disk_compression_check();
kernel_modules(); });
$menu->append( $item );
$opt->set_menu( $menu );
@ -2307,35 +2334,43 @@ sub button {
}
sub submit {
my($kernel, $root_image, $device, $size);
# comment this out for testing
# Since only one filehandle is now used, this won't work
# anymore.
#unlink("$verbosefn");
open (MTAB, "/etc/mtab") or die "no mtab!\n";
while (<MTAB>) {
if (m,$mnt,) {
sys("umount $mnt");
}
if (m,$mnt,) {
sys("umount $mnt");
}
}
close(MTAB);
$entry5->set_text("");
pb("boot",0);
if ($gz_toggle->active) {
$compress = "gzip";
}
elsif ($bz2_toggle->active) {
$compress = "bzip2";
}
if ($gz_toggle->active) {
$compress = "gzip";
}
elsif ($bz2_toggle->active) {
$compress = "bzip2";
}
# Run some checks
if (!defined $container[METHOD]) {
error_window("gBootRoot: ERROR: No Method supplied");
return;
}
else {
if ( $container[METHOD] eq "2 disk compression" ) {
my $rt = two_disk_compression_check();
return if $rt;
}
}
# Run some checks
if (!defined $container[METHOD]) {
error_window("gBootRoot: ERROR: No Method supplied");
return;
}
if (defined $container[KERNEL] && -e $container[KERNEL] &&
!-d $container[KERNEL]) {
$kernel = $container[KERNEL];
@ -2778,7 +2813,37 @@ sub stripper {
}
return ( $_[0], 0);
}
} # end sub stripper
sub two_disk_compression_check {
my ($ash,$lilo);
if ( !find_file_in_path("ash") ) {
$ash = "ash";
}
if ( !find_file_in_path("lilo") ) {
$lilo = "lilo";
}
if ( $ash ||
$lilo ||
($ash && $lilo)
) {
error_window(
"Program(s) required by this method: $lilo $ash"
);
return 1;
}
} # end sub two_disk_compression_check
sub kernel_modules {

Loading…
Cancel
Save