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, 4 insertions, 5 deletions

diff --git a/config-db/slxconfig-demuxer b/config-db/slxconfig-demuxer
index 24501a97..c715caac 100755
--- a/config-db/slxconfig-demuxer
+++ b/config-db/slxconfig-demuxer
@@ -498,7 +498,7 @@ sub generateInitialRamFS
 	$cmd .= "-S $info->{name} ";
 
 	# pass on theme, if any
-	my $theme = $attrs->{'theme::name'} || '';
+	my $theme = $attrs->{'theme::splash'} || '';
 	if (length $theme) {
 		$cmd .= "-s $theme ";
 	}
@@ -705,8 +705,7 @@ sub writePluginConfigurationsForSystem
 		vlog(2, _tr("checking configuration of plugin '%s'", $pluginName));
 
 		# skip inactive plugins
-		my $pluginScope = lc($pluginName);
-		next unless $attrs->{"${pluginScope}::active"};
+		next unless $attrs->{"${pluginName}::active"};
 		
 		push @activePlugins, $pluginName;
 
@@ -717,7 +716,7 @@ sub writePluginConfigurationsForSystem
 		vlog(2, _tr("writing configuration file for plugin '%s'", $pluginName));
 		# write plugin configuration to a file:
 		my $content;
-		my @pluginAttrs = grep { $_ =~ m{^${pluginScope}::} } keys %$attrs;
+		my @pluginAttrs = grep { $_ =~ m{^${pluginName}::} } keys %$attrs;
 		foreach my $attr (sort @pluginAttrs) {
 			my $attrVal = $attrs->{$attr};
 			next if !defined $attrVal;
@@ -734,7 +733,7 @@ sub writePluginConfigurationsForSystem
 		
 		# copy runlevel script to be used in stage3:
 		my $precedence 
-			= sprintf('%02d', $attrs->{"${pluginScope}::precedence"});
+			= sprintf('%02d', $attrs->{"${pluginName}::precedence"});
 		my $pluginFolder 
 			= "$openslxConfig{'base-path'}/lib/plugins/$pluginName";
 		my $scriptName = "$pluginFolder/XX_${pluginName}.sh";