diff options
author | Oliver Tappe | 2008-02-09 20:50:32 +0100 |
---|---|---|
committer | Oliver Tappe | 2008-02-09 20:50:32 +0100 |
commit | 694ed54c50405488d90983e0f603f6636dcf91b9 (patch) | |
tree | 4bd665fbcd38969aac3b2fd5b61b00659ec04aec /os-plugins/slxos-plugin | |
parent | * cmdline options are now collected in a hash instead of individual variables, (diff) | |
download | core-694ed54c50405488d90983e0f603f6636dcf91b9.tar.gz core-694ed54c50405488d90983e0f603f6636dcf91b9.tar.xz core-694ed54c50405488d90983e0f603f6636dcf91b9.zip |
* cmdline options are now collected in a hash instead of individual variables,
as this is much clearer
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1527 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'os-plugins/slxos-plugin')
-rwxr-xr-x | os-plugins/slxos-plugin | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/os-plugins/slxos-plugin b/os-plugins/slxos-plugin index 52c80796..6797b25e 100755 --- a/os-plugins/slxos-plugin +++ b/os-plugins/slxos-plugin @@ -34,23 +34,23 @@ use OpenSLX::Basics; use OpenSLX::OSPlugin::Engine; use OpenSLX::Utils; -my ($helpReq, $manReq, $verbose, $versionReq,); +my %option; GetOptions( - 'help|?' => \$helpReq, - 'man' => \$manReq, - 'verbose' => \$verbose, - 'version' => \$versionReq, + 'help|?' => \$option{helpReq}, + 'man' => \$option{manReq}, + 'verbose' => \$option{verbose}, + 'version' => \$option{versionReq}, ) or pod2usage(2); -pod2usage(-msg => $abstract, -verbose => 0, -exitval => 1) if $helpReq; -if ($manReq) { +pod2usage(-msg => $abstract, -verbose => 0, -exitval => 1) if $option{helpReq}; +if ($option{manReq}) { # avoid dubious problem with perldoc in combination with UTF-8 that # leads to strange dashes and single-quotes being used $ENV{LC_MESSAGES} = 'POSIX'; pod2usage(-verbose => 2); } -if ($versionReq) { +if ($option{versionReq}) { system('slxversion'); exit 1; } @@ -67,7 +67,7 @@ if ($action =~ m[^list]i) { print join( '', map { - if ($verbose) { + if ($option{verbose}) { my $description = $pluginInfo->{$_}->{description}; $description .= "\t " |