bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-23 17:13:22 -05:00
Code Issues Projects Releases Wiki Activity

Starting to carry the login of uml_exclusively and preserve_permissions over.

Browse Source
This commit is contained in:
freesource 2001-12-17 23:47:58 +00:00
parent 85ff2a51af
commit 619981c0cb
1 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
BootRoot/Yard.pm
View File

@ -48,7 +48,9 @@ use FileHandle;
use Cwd; # I am not even sure if this is being used here now use Cwd; # I am not even sure if this is being used here now
use English; # I think this can be ditched for portability use English; # I think this can be ditched for portability
use File::Find; # used by check_root_fs use File::Find; # used by check_root_fs
use BootRoot::BootRoot;
use BootRoot::Error; use BootRoot::Error;
use BootRoot::UML;
my (%Included, %replaced_by, %links_to, %is_module, %hardlinked, my (%Included, %replaced_by, %links_to, %is_module, %hardlinked,
%strippable, %lib_needed_by, @Libs, %user_defined_link); %strippable, %lib_needed_by, @Libs, %user_defined_link);
@ -157,13 +159,13 @@ sub kernel_version_check {
## REQUIRES $contents_file ## REQUIRES $contents_file
sub read_contents_file { sub read_contents_file {
my ( $contents_file, $mnt, $fs_size ) = @_; my ( $contents_file, $mnt, $fs_size ) = @_;
my $error; my $error;
# It's a good idea to clear the text buffer in the verbosity box # It's a good idea to clear the text buffer in the verbosity box
$text_insert->backward_delete($text_insert->get_length()); $text_insert->backward_delete($text_insert->get_length());
# Need to know whether genext2fs is being used # Need to know whether genext2fs is being used
my $fs_type = (split(/\s/,$main::makefs))[0]; my $fs_type = (split(/\s/,$main::makefs))[0];
@ -1108,7 +1110,7 @@ sub space_check {
sub create_filesystem { sub create_filesystem {
my ($filename, $fs_size, $mnt, $strip_lib, my ($filename, $fs_size, $mnt, $strip_lib,
$strip_bin, $strip_module, $obj_count) = @_; $strip_bin, $strip_module, $obj_count, $uml_expect) = @_;
$device = "$mnt/$filename"; $device = "$mnt/$filename";
$mount_point = "$mnt/loopback"; $mount_point = "$mnt/loopback";
@ -1129,7 +1131,25 @@ sub create_filesystem {
# the new mounted filesystem ubd1. I'll automate this in the future. # the new mounted filesystem ubd1. I'll automate this in the future.
# --freesource # --freesource
if ( $> != 0 && $fs_size > 8192 && $fs_type eq "genext2fs" ) {
# Before we go on make sure that the normal user knows what he
# is doing. This gives him the opportunity to use the loop device,
# but his fs will almost definitely not work, because of permissions.
if ( $> != 0 && $uml_expect->{uml_exclusively} == 0 &&
$fs_type ne "genext2fs" ) {
}
# Allow smaller than 8192 if exclusive.
if ( $uml_expect->{uml_exclusively} == 1 ) {
sync();
sys("dd if=/dev/zero of=$device bs=1k count=$fs_size");
sync();
}
elsif ( $> != 0 && $fs_size > 8192 && $fs_type eq "genext2fs" ) {
sync(); sync();
sys("dd if=/dev/zero of=$device bs=1k count=$fs_size"); sys("dd if=/dev/zero of=$device bs=1k count=$fs_size");
sync(); sync();
@ -1141,7 +1161,8 @@ sub create_filesystem {
} }
# Maybe other fs will be represented in the future, but genext2fs is all # Maybe other fs will be represented in the future, but genext2fs is all
# that exists now for non-root users. --freesource # that exists now for non-root users, but if uml_exclusively
# then the filsystem will be used from the helper machine. --freesource
if ( $fs_type ne "genext2fs" ) { if ( $fs_type ne "genext2fs" ) {
if (-f $device) { if (-f $device) {