* 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

1 files changed, 17 insertions, 0 deletions

diff --git a/installer/slxos-setup b/installer/slxos-setup
index 1d6a0201..381de5b3 100755
--- a/installer/slxos-setup
+++ b/installer/slxos-setup
@@ -95,6 +95,18 @@ if ($action =~ m[^import]i) {
 		or die _tr("can't chdir to script-path <%> (%s)", $FindBin::RealBin, $!);
 	$engine->initialize($vendorOSName, 'update');
 	$engine->updateVendorOS();
+} elsif ($action =~ m[^shell]i) {
+	my $vendorOSName = shift @ARGV;
+	if (!defined $vendorOSName) {
+		print STDERR _tr("You need to give the name of the vendor-os you'd like to start of shell for!\n");
+		pod2usage(2);
+	}
+	# we chdir into the script's folder such that all relative paths have
+	# a known starting point:
+	chdir($FindBin::RealBin)
+		or die _tr("can't chdir to script-path <%> (%s)", $FindBin::RealBin, $!);
+	$engine->initialize($vendorOSName, 'update');
+	$engine->startChrootedShellForVendorOS();
 } elsif ($action =~ m[^install]i) {
 	my $vendorOSName = shift @ARGV;
 	if (!defined $vendorOSName) {
@@ -155,6 +167,7 @@ if ($action =~ m[^import]i) {
 	list-supported
 	list-installed
 	remove
+	shell
 	update
 Try '%s --help' for more info.\n", $0);
 }
@@ -204,6 +217,10 @@ show supported distros
 
 removes an installed vendor-OS
 
+=item B<<     shell <vendor-os-name> >>
+
+starts a chrooted shell for an installed vendor-OS
+
 =item B<<     update <vendor-os-name> >>
 
 updates an installed vendor-OS