* added separation of support for cloning and installation of systems.

* minor improvement of POD


git-svn-id: http://svn.openslx.org/svn/openslx/trunk@752 95ad53e4-c205-0410-b2fa-d234c58c8868

1 files changed, 12 insertions, 2 deletions

diff --git a/installer/slxos-setup b/installer/slxos-setup
index b1343ea7..0db7639a 100755
--- a/installer/slxos-setup
+++ b/installer/slxos-setup
@@ -60,8 +60,13 @@ if ($versionReq) {
 openslxInit();
 
 if ($listReq) {
-	print _tr("List of supported distros:\n\t");
-	print join("\n\t", keys %supportedDistros)."\n";
+	print _tr("List of supported distros:\n");
+	print join('', map {
+					"\t$_"
+					 .(' 'x(20-length($_)))
+					 ."\t($supportedDistros{$_}->{support})\n"
+				   }
+				   sort keys %supportedDistros);
 	exit 1;
 }
 
@@ -150,6 +155,7 @@ will be used as a OpenSLX-stage1-system (a.k.a. vendor-OS).
 
   Options:
       --help                   brief help message
+      --list                   show supported distros
       --man                    show full documentation
       --source=<string>        (rsync-)source to clone vendor-OS from
       --version                show version
@@ -168,6 +174,10 @@ will be used as a OpenSLX-stage1-system (a.k.a. vendor-OS).
 
 Prints a brief help message and exits.
 
+=item B<--list>
+
+Lists all supported distros and exits.
+
 =item B<--man>
 
 Prints the manual page and exits.