diff options
| author | Oliver Tappe | 2007-07-18 20:35:03 +0200 |
|---|---|---|
| committer | Oliver Tappe | 2007-07-18 20:35:03 +0200 |
| commit | 4c229f003631c46946cb721a9050c7b6e8a86da9 (patch) | |
| tree | 75ed973639247fbe4bbf4b92ca7d1ebec4fb2087 /installer/slxos-export | |
| parent | * updated perldoc to match current state (diff) | |
| download | core-4c229f003631c46946cb721a9050c7b6e8a86da9.tar.gz core-4c229f003631c46946cb721a9050c7b6e8a86da9.tar.xz core-4c229f003631c46946cb721a9050c7b6e8a86da9.zip | |
* 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
Diffstat (limited to 'installer/slxos-export')
| -rwxr-xr-x | installer/slxos-export | 19 |
1 files changed, 10 insertions, 9 deletions
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 |