From fde7d8f091d03b8d2c0c14e3f56eab700082beba Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Sun, 27 Jan 2008 14:51:47 +0000
Subject: 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
---
 os-plugins/slxos-plugin | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

(limited to 'os-plugins/slxos-plugin')

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) {
-- 
cgit v1.2.3-55-g7522