diff options
author | Oliver Tappe | 2007-03-16 22:57:29 +0100 |
---|---|---|
committer | Oliver Tappe | 2007-03-16 22:57:29 +0100 |
commit | 4ac921c5f12fb35051eb8bf65b480d57ce4f2068 (patch) | |
tree | 3aad56298db6e24947b4a36ff0caacf0a19dbd97 /installer/slxos-setup | |
parent | * largish overhaul, changed ConfigDB to be object-oriented (could be improved... (diff) | |
download | core-4ac921c5f12fb35051eb8bf65b480d57ce4f2068.tar.gz core-4ac921c5f12fb35051eb8bf65b480d57ce4f2068.tar.xz core-4ac921c5f12fb35051eb8bf65b480d57ce4f2068.zip |
* changed option to show the supported distros from '--list' to '--list-supported'
* added option '--list-installed' which gives a list of installed vendor-OSes
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@775 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'installer/slxos-setup')
-rwxr-xr-x | installer/slxos-setup | 26 |
1 files changed, 21 insertions, 5 deletions
diff --git a/installer/slxos-setup b/installer/slxos-setup index 75d562c3..71a2d948 100755 --- a/installer/slxos-setup +++ b/installer/slxos-setup @@ -35,8 +35,9 @@ if ($> != 0) { my ( $helpReq, + $listInstalledReq, + $listSupportedReq, $manReq, - $listReq, $source, $verbose, $versionReq, @@ -44,7 +45,8 @@ my ( GetOptions( 'help|?' => \$helpReq, - 'list' => \$listReq, + 'list-installed' => \$listInstalledReq, + 'list-supported' => \$listSupportedReq, 'man' => \$manReq, 'source=s' => \$source, 'verbose' => \$verbose, @@ -59,7 +61,7 @@ if ($versionReq) { openslxInit(); -if ($listReq) { +if ($listSupportedReq) { print _tr("List of supported distros:\n"); print join('', map { "\t$_" @@ -69,6 +71,15 @@ if ($listReq) { sort keys %supportedDistros); exit 1; } +if ($listInstalledReq) { + print _tr("List of installed vendor-OSes:\n"); + print join('', map { + s[^.+/][]; + "\t$_\n"; + } + sort <$openslxConfig{'stage1-path'}/*>); + exit 1; +} if (scalar(@ARGV) != 2) { print STDERR _tr("You need to specify exactly one action and one vendor-OS name!\n"); @@ -142,7 +153,8 @@ will be used as a OpenSLX-stage1-system (a.k.a. vendor-OS). Options: --help brief help message - --list show supported distros + --list-installed show installed vendor-OSes + --list-supported show supported distros --man show full documentation --source=<string> (rsync-)source to clone vendor-OS from --version show version @@ -161,7 +173,11 @@ will be used as a OpenSLX-stage1-system (a.k.a. vendor-OS). Prints a brief help message and exits. -=item B<--list> +=item B<--list-installed> + +Lists all installed vendor-OSes and exits. + +=item B<--list-supported> Lists all supported distros and exits. |