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 --- config-db/slxconfig | 35 +++++++++++++++++++---------------- 1 file changed, 19 insertions(+), 16 deletions(-) (limited to 'config-db') diff --git a/config-db/slxconfig b/config-db/slxconfig index 5d586a41..50c8d8cd 100755 --- a/config-db/slxconfig +++ b/config-db/slxconfig @@ -36,6 +36,7 @@ use OpenSLX::Basics; use OpenSLX::ConfigDB; use OpenSLX::ConfigFolder; use OpenSLX::DBSchema; +use OpenSLX::Utils; my ( $helpReq, @@ -105,22 +106,24 @@ if ($action =~ m[^add-system$]i) { } elsif ($action =~ m[^remove-system$]i) { removeSystemFromConfigDB(@ARGV); } else { - print STDERR _tr("You need to specify exactly one of these actions: - add-client - add-system - change-client - change-system - list-client - list-export - list-system - list-vendoros - remove-client - remove-system - search-client - search-export - search-system - search-vendoros -Try '%s --help' for more info.\n", $0); + vlog(0, _tr(unshiftHereDoc(<<' END-OF-HERE'), $0)); + You need to specify exactly one of these actions: + add-client + add-system + change-client + change-system + list-client + list-export + list-system + list-vendoros + remove-client + remove-system + search-client + search-export + search-system + search-vendoros + Try '%s --help' for more info. + END-OF-HERE } $openslxDB->disconnect(); -- cgit v1.2.3-55-g7522