bike
/
gbootroot
mirror of https://github.com/fspc/gbootroot.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
Browse Source

Getting ready for another release. 

During the boot stage the filsystem type was used to determine whether
to use the genext2fs (non-root) method or the normal method used by root.
Now the user type is used, this is better because it prevents conflicts
if a different filesystem type is chosen, or if a non-root user changes to a
different filesystem type in the filesystem box and forgets to change back
to genext2fs; however, it prevents root from using the genext2fs method,
which isn't a problem.  The sudo requirement for lilo is too much of a
requirement, and will be changed in future versions.
master
freesource 23 years ago
parent
fa195b3ff6
commit
77f64443e3
2 changed files with 66 additions and 32 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 84
      BootRoot/BootRoot.pm
  2. 14
      Changes

84
BootRoot/BootRoot.pm
View File

@ -52,8 +52,8 @@ my $uml_xterm = "xterm -e";
# and to update scripts/Debian.yard if # and to update scripts/Debian.yard if
# make_debian has been changed, # make_debian has been changed,
# and to install -s linux. # and to install -s linux.
my $version = "1.3.2"; my $version = "1.3.3";
my $date = "01.11.2002"; my $date = "01.15.2002";
my $gtk_perl_version = "0.7002"; my $gtk_perl_version = "0.7002";
my $pwd = `pwd`; chomp $pwd; my $pwd = `pwd`; chomp $pwd;
my $home_rootfs = "$home/root_filesystem/"; my $home_rootfs = "$home/root_filesystem/";
@ -2160,7 +2160,6 @@ sub entry_advanced {
$entry_advanced->signal_connect( "changed", sub { $entry_advanced->signal_connect( "changed", sub {
$entry_advanced[$numa] = $entry_advanced->get_text(); $entry_advanced[$numa] = $entry_advanced->get_text();
print $entry_advanced[$numa], " $numa\n";
if ($numa == 4) { if ($numa == 4) {
$ars->{filename} = $entry_advanced[$numa]; $ars->{filename} = $entry_advanced[$numa];
ars($ars); ars($ars);
@ -2826,7 +2825,8 @@ sub lilo_put_it_together {
# Time to do a little calculations # Time to do a little calculations
my $device_size; my $device_size;
if ( $fs_type ne "genext2fs" ) { ## if ( $fs_type ne "genext2fs" ) {
if ( $> == 0 ) {
$device_size = (split(/\s+/,`df $mnt`))[8]; $device_size = (split(/\s+/,`df $mnt`))[8];
} }
else { else {
@ -2850,7 +2850,8 @@ sub lilo_put_it_together {
# If genext2fs is being used clean $tmp/bootdisk if any garbage is found, # If genext2fs is being used clean $tmp/bootdisk if any garbage is found,
# and temporarily rename $mnt to that directory. # and temporarily rename $mnt to that directory.
#my $old_mount; #my $old_mount;
if ( $fs_type eq "genext2fs" ) { ## if ( $fs_type eq "genext2fs" ) {
if ( $> != 0 ) {
if (-d "$tmp/bootdisk") { if (-d "$tmp/bootdisk") {
sys("rm -rf $tmp/bootdisk"); sys("rm -rf $tmp/bootdisk");
} }
@ -2870,7 +2871,8 @@ sub lilo_put_it_together {
pb($B,2); pb($B,2);
info(0, "Copying over kernel\n"); info(0, "Copying over kernel\n");
if ( $fs_type ne "genext2fs" ) { ## if ( $fs_type ne "genext2fs" ) {
if ( $> == 0 ) {
return if return if
err_custom("rm -rf $mnt/lost+found; cp $container[KERNEL] $mnt/kernel", "gBootRoot: ERROR: Could not copy over the kernel") == 2; err_custom("rm -rf $mnt/lost+found; cp $container[KERNEL] $mnt/kernel", "gBootRoot: ERROR: Could not copy over the kernel") == 2;
} }
@ -2887,8 +2889,8 @@ sub lilo_put_it_together {
# DEVICES SECTION # DEVICES SECTION
my @devices; my @devices;
my $device_table = "$tmp/boot_device_table.txt"; my $device_table = "$tmp/boot_device_table.txt";
if ( $fs_type eq "genext2fs" ) { ## if ( $fs_type eq "genext2fs" ) {
if ( $> != 0 ) {
info(0, "Making $device_table for genext2fs\n"); info(0, "Making $device_table for genext2fs\n");
my $error; my $error;
unlink( $device_table ) if -e $device_table; unlink( $device_table ) if -e $device_table;
@ -2990,7 +2992,8 @@ sub lilo_put_it_together {
# 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 unless genext2fs in being used. # copied over before doing lilo unless genext2fs in being used.
if ( $fs_type ne "genext2fs" ) { ## if ( $fs_type ne "genext2fs" ) {
if ( $> == 0 ) {
return if errum(sys("umount $mnt")) == 2; return if errum(sys("umount $mnt")) == 2;
info(0, "Umount device\n"); info(0, "Umount device\n");
info(0, "Remount device\n"); info(0, "Remount device\n");
@ -2998,8 +3001,8 @@ sub lilo_put_it_together {
pb($B,6); pb($B,6);
if ( $fs_type eq "genext2fs" ) { ## if ( $fs_type eq "genext2fs" ) {
if ( $> != 0 ) {
my $error; my $error;
# When creating a fs on floppy, specifying -i causes genext2fs to fail, # When creating a fs on floppy, specifying -i causes genext2fs to fail,
@ -3014,7 +3017,8 @@ sub lilo_put_it_together {
} }
if ( $fs_type eq "genext2fs" ) { ## if ( $fs_type eq "genext2fs" ) {
if ( $> != 0 ) {
$mnt = $old_mount; $mnt = $old_mount;
} }
@ -3024,7 +3028,8 @@ sub lilo_put_it_together {
} }
else { else {
my $errm_value = errm(sys("mount $mnt")); my $errm_value = errm(sys("mount $mnt"));
if ( $errm_value == 2 && $fs_type eq "genext2fs" ) { ## if ( $errm_value == 2 && $fs_type eq "genext2fs" ) {
if ( $errm_value == 2 && $> != 0 ) {
info(0, "Ask your administrator to add this line to the" . info(0, "Ask your administrator to add this line to the" .
" fstab file:\n"); " fstab file:\n");
info(0, "\n$entry_advanced[0]\t$mnt\tauto\tdefaults,noauto," . info(0, "\n$entry_advanced[0]\t$mnt\tauto\tdefaults,noauto," .
@ -3094,7 +3099,8 @@ sub lilo_put_it_together {
pb($B,10); pb($B,10);
if ($ok == 1 || $ok == 2) { if ($ok == 1 || $ok == 2) {
if ( $fs_type ne "genext2fs" ) { ## if ( $fs_type ne "genext2fs" ) {
if ( $> == 0 ) {
return if return if
errrm(sys("rmdir $tmp/initrd_mnt")) == 2; errrm(sys("rmdir $tmp/initrd_mnt")) == 2;
} }
@ -3119,7 +3125,8 @@ sub device2 {
# Time to do a little calculations # Time to do a little calculations
my $device_size; my $device_size;
if ( $fs_type ne "genext2fs" ) { ## if ( $fs_type ne "genext2fs" ) {
if ( $> == 0 ) {
$device_size = (split(/\s+/,`df $mnt`))[8]; $device_size = (split(/\s+/,`df $mnt`))[8];
} }
else { else {
@ -3142,7 +3149,8 @@ sub device2 {
} }
info(0, "Copy over the compressed filesystem\n"); info(0, "Copy over the compressed filesystem\n");
if ( $fs_type ne "genext2fs" ) { ## if ( $fs_type ne "genext2fs" ) {
if ( $> == 0 ) {
return if errrm(sys("rmdir $mnt/lost+found")) == 2; return if errrm(sys("rmdir $mnt/lost+found")) == 2;
} }
my $broot_image = basename($container[ROOT_FS]); my $broot_image = basename($container[ROOT_FS]);
@ -3154,7 +3162,8 @@ sub device2 {
my $half_line_count = $line_count/2; my $half_line_count = $line_count/2;
my $count = 1; my $count = 1;
if ( $fs_type ne "genext2fs" ) { ## if ( $fs_type ne "genext2fs" ) {
if ( $> == 0 ) {
open(CF, ">$mnt/$broot_image") or error_window( open(CF, ">$mnt/$broot_image") or error_window(
"gBootRoot: ERROR: Could not copy over the root filesystem") and return; "gBootRoot: ERROR: Could not copy over the root filesystem") and return;
@ -3177,7 +3186,8 @@ sub device2 {
# If genext2fs is being used clean $tmp/rootdisk if any garbage is # If genext2fs is being used clean $tmp/rootdisk if any garbage is
# found. # found.
if ( $fs_type eq "genext2fs" ) { ## if ( $fs_type eq "genext2fs" ) {
if ( $> != 0 ) {
if (-d "$tmp/rootdisk") { if (-d "$tmp/rootdisk") {
sys("rm -rf $tmp/rootdisk"); sys("rm -rf $tmp/rootdisk");
} }
@ -3206,7 +3216,8 @@ sub device2 {
} }
#------------------------------------------------------ #------------------------------------------------------
if ( $fs_type ne "genext2fs" ) { ## if ( $fs_type ne "genext2fs" ) {
if ( $> == 0 ) {
return if return if
err_custom("umount $mnt", err_custom("umount $mnt",
"gBootRoot: ERROR: Root disk did not properly umount") == 2; "gBootRoot: ERROR: Root disk did not properly umount") == 2;
@ -3564,6 +3575,9 @@ sub initrd_size {
} }
} }
} }
close(SL);
close(L);
$initrd_size = $initrd_size + ($initrd_size * 0.02); $initrd_size = $initrd_size + ($initrd_size * 0.02);
@ -3614,7 +3628,8 @@ sub initrd {
my $fs_type = (split(/\s/,$main::makefs))[0]; my $fs_type = (split(/\s/,$main::makefs))[0];
if ( $fs_type eq "genext2fs" ) { ## if ( $fs_type eq "genext2fs" ) {
if ( $> != 0 ) {
# Assuming busybox is being used, so bzip2 should still be standard # Assuming busybox is being used, so bzip2 should still be standard
# just another link .. just for testing. # just another link .. just for testing.
##if ( $compress eq "bzip2" ) { ##if ( $compress eq "bzip2" ) {
@ -3630,8 +3645,8 @@ sub initrd {
unlink("$tmp/linuxrc"); unlink("$tmp/linuxrc");
if ( $fs_type ne "genext2fs" ) { ## if ( $fs_type ne "genext2fs" ) {
if ( $> == 0 ) {
info(0, "Using loop device to make initrd\n"); info(0, "Using loop device to make initrd\n");
info(0, "Make sure you have loop device capability" . info(0, "Make sure you have loop device capability" .
" in your running kernel\n"); " in your running kernel\n");
@ -3658,7 +3673,8 @@ sub initrd {
# Here the loop device is made on tmp, not mnt # Here the loop device is made on tmp, not mnt
if ( $fs_type eq "genext2fs" ) { ## if ( $fs_type eq "genext2fs" ) {
if ( $> != 0 ) {
info(0, "Using genext2fs to make initrd rather than a loop device\n"); info(0, "Using genext2fs to make initrd rather than a loop device\n");
} }
@ -3673,7 +3689,8 @@ sub initrd {
pb($I,4); pb($I,4);
info(0, "Putting everything together\n"); info(0, "Putting everything together\n");
if ( $fs_type eq "genext2fs" ) { ## if ( $fs_type eq "genext2fs" ) {
if ( $> != 0 ) {
open(LC, ">$tmp/initrd_mnt/linuxrc") or die "Couldn't write linuxrc to $tmp/initrd_mnt\n"; open(LC, ">$tmp/initrd_mnt/linuxrc") or die "Couldn't write linuxrc to $tmp/initrd_mnt\n";
} }
else { else {
@ -3682,7 +3699,8 @@ sub initrd {
print LC initrd_heredoc($broot_image,$device); close(LC); print LC initrd_heredoc($broot_image,$device); close(LC);
# I could test this but somebody's system may do permissions differently # I could test this but somebody's system may do permissions differently
sys("chmod 0755 $tmp/initrd_mnt/linuxrc"); sys("chmod 0755 $tmp/initrd_mnt/linuxrc");
if ($fs_type ne "genext2fs" ) { ## if ($fs_type ne "genext2fs" ) {
if ( $> == 0 ) {
sys("rmdir $tmp/initrd_mnt/lost+found"); sys("rmdir $tmp/initrd_mnt/lost+found");
} }
pb($I,5); pb($I,5);
@ -3694,7 +3712,8 @@ sub initrd {
pb($I,6); pb($I,6);
# Hopefully, this works, but have never tested it - o.k I did # Hopefully, this works, but have never tested it - o.k I did
if ( $fs_type ne "genext2fs" ) { ## if ( $fs_type ne "genext2fs" ) {
if ( $> == 0 ) {
if ($container[BOOT_DEVICE] !~ m,/dev/fd\d{1}$,) { if ($container[BOOT_DEVICE] !~ m,/dev/fd\d{1}$,) {
return if err(sys("cp -a $container[BOOT_DEVICE] $mnt/dev")) == 2; return if err(sys("cp -a $container[BOOT_DEVICE] $mnt/dev")) == 2;
} }
@ -3703,8 +3722,8 @@ sub initrd {
# DEVICES SECTION # DEVICES SECTION
my @devices; my @devices;
my $device_table = "$tmp/initrd_device_table.txt"; my $device_table = "$tmp/initrd_device_table.txt";
if ( $fs_type eq "genext2fs" ) { ## if ( $fs_type eq "genext2fs" ) {
if ( $> != 0 ) {
info(0, "Making $device_table for genext2fs\n"); info(0, "Making $device_table for genext2fs\n");
my $error; my $error;
unlink( $device_table ) if -e $device_table; unlink( $device_table ) if -e $device_table;
@ -3937,7 +3956,8 @@ sub initrd {
sys("ldconfig -v -r $tmp/initrd_mnt"); sys("ldconfig -v -r $tmp/initrd_mnt");
if ( $fs_type eq "genext2fs" ) { ## if ( $fs_type eq "genext2fs" ) {
if ( $> != 0 ) {
info(0, "Using genext2fs to contruct the initrd\n"); info(0, "Using genext2fs to contruct the initrd\n");
# The -D option is unique to the newest unreleased version of # The -D option is unique to the newest unreleased version of
# genextfs modified by BusyBox maintainer Erick Andersen # genextfs modified by BusyBox maintainer Erick Andersen
@ -4251,7 +4271,8 @@ sub mtab_check {
# Make sure the drive and storage medium are accessible # Make sure the drive and storage medium are accessible
# Keep asking until they are. # Keep asking until they are.
if ( $error == 1 && $fs_type ne "genext2fs" ) { ## if ( $error == 1 && $fs_type ne "genext2fs" ) {
if ( $error == 1 && $> == 0 ) {
destroy $mtab; destroy $mtab;
# $size has to be determined by boot disk or root disk # $size has to be determined by boot disk or root disk
@ -4299,7 +4320,8 @@ sub mtab_check {
} # if $error == 1 } # if $error == 1
if ( $fs_type eq "genext2fs" && $error == 1 ) { ## if ( $fs_type eq "genext2fs" && $error == 1 ) {
if ( $> != 0 && $error == 1 ) {
destroy $mtab; destroy $mtab;
lilo_put_it_together() if $count == 0; # mtab(1) runs from here lilo_put_it_together() if $count == 0; # mtab(1) runs from here

14
Changes
View File

@ -1,6 +1,18 @@
1.3.3 - 01/15/2002
------------------
During the boot stage the filsystem type was used to determine whether
to use the genext2fs (non-root) method or the normal method used by root.
Now the user type is used, this is better because it prevents conflicts
if a different filesystem type is chosen, or if a non-root user changes to a
different filesystem type in the filesystem box and forgets to change back
to genext2fs; however, it prevents root from using the genext2fs method,
which isn't a problem. The sudo requirement for lilo is too much of a
requirement, and will be changed in future versions.
Fixed another non-root boot/root bug. The info had it correct, but the actual Fixed another non-root boot/root bug. The info had it correct, but the actual
copy with genext2fs was being done from the wrong location. This has been copy with genext2fs was being done from the wrong location. This has been
fixed. fixed. This method may be ditched for a far better one in the near future.
Had some testing code which was providing the wrong value for $compress, this Had some testing code which was providing the wrong value for $compress, this
made non-root booting fail for bzip2 because bunzip2 didn't exist in the made non-root booting fail for bzip2 because bunzip2 didn't exist in the

Write Preview
Loading…
Cancel
Save