From 4c229f003631c46946cb721a9050c7b6e8a86da9 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Wed, 18 Jul 2007 18:35:03 +0000
Subject: * some cleanup - we now make use of here-docs where feasible

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1252 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 installer/slxos-setup | 38 ++++++++++++++++++++++----------------
 1 file changed, 22 insertions(+), 16 deletions(-)

(limited to 'installer/slxos-setup')

diff --git a/installer/slxos-setup b/installer/slxos-setup
index 98685646..0ef0fc2e 100755
--- a/installer/slxos-setup
+++ b/installer/slxos-setup
@@ -33,6 +33,7 @@ use lib "$FindBin::RealBin/../config-db";
 
 use OpenSLX::Basics;
 use OpenSLX::OSSetup::Engine;
+use OpenSLX::Utils;
 
 my (
 	$helpReq,
@@ -155,23 +156,28 @@ if ($action =~ m[^import]i) {
 				   sort keys %supportedDistros);
 } elsif ($action =~ m[^list-in]i) {
 	print _tr("List of installed vendor-OSes:\n");
-	print join('', map {
-					my $vendorOS = $_;
-					$vendorOS =~ s[^.+/][];
-					"\t$vendorOS\n";
-				   }
-				   sort <$openslxConfig{'private-path'}/stage1/*>);
+	print join(
+		'', 
+		map {
+			my $vendorOS = $_;
+			$vendorOS =~ s[^.+/][];
+			"\t$vendorOS\n";
+		}
+		sort glob("$openslxConfig{'private-path'}/stage1/*")
+	);
 } else {
-	print STDERR _tr("You need to specify exactly one action:
-	clone
-	import-into-db
-	install
-	list-supported
-	list-installed
-	remove
-	shell
-	update
-Try '%s --help' for more info.\n", $0);
+	vlog(0, _tr(unshiftHereDoc(<<'	END-OF-HERE'), $0));
+		You need to specify exactly one action:
+			clone
+			import-into-db
+			install
+			list-supported
+			list-installed
+			remove
+			shell
+			update
+		Try '%s --help' for more info.
+	END-OF-HERE
 }
 
 
-- 
cgit v1.2.3-55-g7522