* added devel version of config-demuxer.pl, doesn't do anything useful

  yet, though.


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

1 files changed, 112 insertions, 0 deletions

diff --git a/config-db/config-demuxer.pl b/config-db/config-demuxer.pl
new file mode 100755
index 00000000..8b9708ad
--- /dev/null
+++ b/config-db/config-demuxer.pl
@@ -0,0 +1,112 @@
+#! /usr/bin/perl
+
+# add the folder this script lives in to perl's search path for modules:
+use FindBin;
+use lib $FindBin::Bin;
+
+use Getopt::Long;
+
+use ODLX::Basics;
+use ODLX::ConfigDB;
+
+my (
+	$dryRun,
+	%systemConf,
+	%sytemClientConf,
+	%clientPXE,
+);
+
+odlxInit();
+
+GetOptions(
+	'dry-run' => \$dryRun
+		# dry-run doesn't write anything, just prints statistic about what
+		# would have been written
+);
+
+print "dry-run...\n" if $dryRun;
+
+my $odlxDB = connectConfigDB();
+
+demuxConfigurations();
+
+disconnectConfigDB($odlxDB);
+
+exit;
+
+################################################################################
+###
+################################################################################
+sub initSystemConfigurations
+{
+	foreach my $s (fetchSystemsByFilter($odlxDB)) {
+		vlog 3, _tr('system %d:%s...', $s->{id}, $s->{name});
+		$systemConf{$s->{id}} = $s;
+	}
+}
+
+sub mergeConfigAttributes
+{	# copies all attributes of source that do not exists in target over
+	my $target = shift;
+	my $source = shift;
+
+	foreach my $key (grep { $_ =~ m[^attr] } keys %$source) {
+		if (length($source->{$key}) > 0 && length($target->{$key}) == 0) {
+			$target->{$key} = $source->{$key};
+		}
+	}
+}
+
+sub demuxClientConfigurations
+{
+	my %groups;
+	foreach my $g (fetchGroupsByFilter($odlxDB)) {
+		vlog 3, _tr('group %d:%s...', $g->{id}, $g->{name});
+		$groups{$g->{id}} = $g;
+	}
+
+	foreach my $client (fetchClientsByFilter($odlxDB)) {
+		vlog 3, _tr('client %d:%s...', $client->{id}, $client->{name});
+
+		# add all systems directly linked to client:
+		$client->{systems} = {};
+		foreach my $s (fetchSystemIDsOfClient($odlxDB, $client->{id})) {
+			if (!exists $client->{systems}->{$s->{id}}) {
+				$client->{systems}->{$s->{id}} = $systems{$s->{id}};
+			}
+		}
+
+		# now fetch and step over all groups this client belongs to
+		# (ordered by priority from highest to lowest):
+		my @clientGroups
+			= sort { $b->{priority} <=> $a->{priority} }
+			  map { $groups{$_} }
+			  grep { exists $groups{$_} }
+					# just to be safe: filter out unknown group-IDs
+			  fetchGroupIDsOfClient($odlxDB, $client->{id});
+		foreach my $group (@clientGroups) {
+			# fetch and add all systems that the client inherits from
+			# the current group:
+			foreach my $s (fetchSystemIDsOfGroup($odlxDB, $group->{id})) {
+				if (!exists $client->{systems}->{$s->{id}}) {
+					$client->{systems}->{$s->{id}} = $systems{$s->{id}};
+				}
+				mergeConfigAttributes($client, $group);
+			}
+		}
+
+		# finally demux client-config to system-specific configuration
+		# and merge system-specific attributes into that:
+		foreach my $s (values %{$client->{systems}}) {
+			$systemClientConf{$client->{id}} = { %$client };
+			mergeConfigAttributes($systemClientConf{$client->{id}}, $system);
+		}
+	}
+}
+
+sub demuxConfigurations()
+{
+	initSystemConfigurations();
+	demuxClientConfigurations();
+}
+