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-export | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

(limited to 'installer/slxos-export')

diff --git a/installer/slxos-export b/installer/slxos-export
index ee1555ec..8f763185 100755
--- a/installer/slxos-export
+++ b/installer/slxos-export
@@ -32,6 +32,7 @@ use lib "$FindBin::RealBin/../config-db";
 
 use OpenSLX::Basics;
 use OpenSLX::OSExport::Engine;
+use OpenSLX::Utils;
 
 my ($helpReq, $manReq, $verbose, $versionReq,);
 
@@ -151,15 +152,15 @@ if ($action =~ m[^list-ex]i) {
 	$engine->initializeFromExisting($exportName);
 	$engine->purgeExport();
 } else {
-	print STDERR _tr(
-		"You need to specify exactly one action:
-	export
-	list-exported
-	list-installed
-	list-types
-	remove
-Try '%s --help' for more info.\n", $0
-	);
+	vlog(0, _tr(unshiftHereDoc(<<'	END-OF-HERE'), $0));
+		You need to specify exactly one action:
+			export
+			list-exported
+			list-installed
+			list-types
+			remove
+		Try '%s --help' for more info.
+	END-OF-HERE
 }
 
 =head1 NAME
-- 
cgit v1.2.3-55-g7522