diff options
author | Oliver Tappe | 2007-06-19 17:49:36 +0200 |
---|---|---|
committer | Oliver Tappe | 2007-06-19 17:49:36 +0200 |
commit | 9929f7ca1f4316fc66feab3539be4d7576769b78 (patch) | |
tree | e5d8a8a7765657898bdc7c0b0497dc96445323bb /installer/OpenSLX/OSSetup/Engine.pm | |
parent | * Added glibc-locale in order to allow use of locale-support in target (diff) | |
download | core-9929f7ca1f4316fc66feab3539be4d7576769b78.tar.gz core-9929f7ca1f4316fc66feab3539be4d7576769b78.tar.xz core-9929f7ca1f4316fc66feab3539be4d7576769b78.zip |
* added support for invoking a chrooted shell for any installed vendor-OS,
in order to simplify doing any manual changes to the vendor-OS.
invoke 'slxos-setup shell <vendor-os>' to start the chrooted shell
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1175 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'installer/OpenSLX/OSSetup/Engine.pm')
-rw-r--r-- | installer/OpenSLX/OSSetup/Engine.pm | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/installer/OpenSLX/OSSetup/Engine.pm b/installer/OpenSLX/OSSetup/Engine.pm index 4d313e73..6064ce6f 100644 --- a/installer/OpenSLX/OSSetup/Engine.pm +++ b/installer/OpenSLX/OSSetup/Engine.pm @@ -304,6 +304,25 @@ sub updateVendorOS $self->{'vendor-os-name'}); } +sub startChrootedShellForVendorOS +{ + my $self = shift; + + if (!-e $self->{'vendor-os-path'}) { + die _tr("can't start chrooted shell for vendor-OS '%s', since it doesn't exist!\n", + $self->{'vendor-os-path'}); + } + + $self->startLocalURLServersAsNeeded(); + + callInSubprocess( sub { + $self->changePersonalityIfNeeded(); + $self->startChrootedShellInStage1D(); + }); + vlog 0, _tr("Chrooted shell for vendor-OS '%s' has been closed.\n", + $self->{'vendor-os-name'}); +} + sub removeVendorOS { my $self = shift; @@ -910,6 +929,24 @@ sub updateStage1D $self->stage1D_updateBasicVendorOS(); } +sub startChrootedShellInStage1D +{ + my $self = shift; + + vlog 0, "starting chrooted shell for $self->{'vendor-os-name'}"; + vlog 0, "---------------------------------------"; + vlog 0, "- please type 'exit' if you are done! -"; + vlog 0, "---------------------------------------"; + + chrootInto($self->{'vendor-os-path'}); + + $self->{'meta-packager'}->startSession(); + slxsystem('sh'); + # hangs until user exits manually + $self->{'distro'}->updateDistroConfig(); + $self->{'meta-packager'}->finishSession(); +} + sub stage1D_setupPackageSources() { my $self = shift; |