Hopefully finished the adjustments of the tools with respect to theme

naming and other recent discussions of user interface.
* adjusted and simplified code to the fact that plugins are now named
  in all lowercase
* slxos-plugin --verbose list now shows description for each plugin and
  a list of supported attributes
* fixed some outstanding issues with respect to lowercasing of plugin names
* Separated theme::name into theme::splash, theme::displaymanager and
  theme::desktop, leading to DB-schema 0.24.
  Please note that although these attributes exist, currently only
  theme::splash is being used (the new ones will be used by the reimplemented
  mkdxsinitrd)
* moved some information gathering from OSPlugin::Engine into OSPlugin::Roster,
  where it belongs

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

1 files changed, 20 insertions, 2 deletions

diff --git a/os-plugins/slxos-plugin b/os-plugins/slxos-plugin
index 981e6b41..52c80796 100755
--- a/os-plugins/slxos-plugin
+++ b/os-plugins/slxos-plugin
@@ -59,12 +59,30 @@ openslxInit();
 
 my $action = shift @ARGV || '';
 
-if ($action =~ m[^list-av]i) {
+if ($action =~ m[^list]i) {
 	my @pluginFolders = glob("$openslxConfig{'base-path'}/lib/plugins/*");
 	print _tr("List of available plugins:\n");
+	require OpenSLX::OSPlugin::Roster;
+	my $pluginInfo = OpenSLX::OSPlugin::Roster->getAvailablePlugins();
 	print join(
 		'', 
-		map { "\t$_\n" } OpenSLX::OSPlugin::Engine->getAvailablePlugins()
+		map {
+			if ($verbose) {
+				my $description = $pluginInfo->{$_}->{description};
+				$description 
+					.= "\t    " 
+						. _tr("The following attributes are suppported:")
+						. "\n\t        ";
+				my $pluginAttrs 
+					= OpenSLX::OSPlugin::Roster->getPluginAttrInfo($_);
+				$description .= join("\n\t        ", sort keys %$pluginAttrs);
+				"\n\t$_\n\t    $description\n";
+			}
+			else {
+				"\t$_\n";
+			}
+		} 
+		sort keys %$pluginInfo
 	);
 } elsif ($action =~ m[^install]i) {
 	if (scalar(@ARGV) != 2) {