* switched from perl-based distro-configuration files to "real" configuration

  files (handled by Config::General)
* removed most version specific distribution modules (only Debian-3.1 remains
  as it requires some special treatment). For all the other distributions,
  the specific info is now contained in the configuration files
* added configuration files (settings.default) for every supported 
  distribution (only Fedora is still missing some info)
* added support for inclusion of (externally generated) mirror lists and 
  automatic selection of the five best (fastest) mirrors from that list (20 
  are tried).
  For each repository, a mirror configuration file is created (in 
  /etc/opt/openslx/distro-info/<distro>/mirrors/<repo>) after that info
  has been gathered.
* added current mirror lists for each distribution repository to the
  distro-info hierarchy
* updated settings.example to reflect new configuration syntax


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

1 files changed, 46 insertions, 0 deletions

diff --git a/lib/OpenSLX/Utils.pm b/lib/OpenSLX/Utils.pm
index bc57078a..86c31ca9 100644
--- a/lib/OpenSLX/Utils.pm
+++ b/lib/OpenSLX/Utils.pm
@@ -30,12 +30,16 @@ $VERSION = 1.01;
   unshiftHereDoc
   string2Array
   chrootInto
+  mergeHash
+  getFQDN
 );
 
 ################################################################################
 ### Module implementation
 ################################################################################
 use File::Basename;
+use Socket;
+use Sys::Hostname;
 
 use OpenSLX::Basics;
 
@@ -230,4 +234,46 @@ sub chrootInto
 	return;
 }
 
+sub mergeHash
+{
+	my $targetHash = shift;
+	my $sourceHash = shift;
+	my $fillOnly   = shift || 0;
+	
+	foreach my $key (keys %{$sourceHash}) {
+		my $sourceVal = $sourceHash->{$key};
+		if (ref($sourceVal) eq 'HASH') {
+			if (!exists $targetHash->{$key}) {
+				$targetHash->{$key} = {};
+			}
+			mergeHash($targetHash->{$key}, $sourceVal);
+		}
+		elsif (ref($sourceVal) eq 'ARRAY') {
+			if (!exists $targetHash->{$key}) {
+				$targetHash->{$key} = [];
+			}
+			foreach my $val (@{$sourceHash->{$key}}) {
+				my $targetVal = {};
+				push @{$targetHash->{$key}}, $targetVal;
+				mergeHash($targetVal, $sourceVal);
+			}
+		}
+		else {
+			next if $fillOnly && exists $targetHash->{$key};
+			$targetHash->{$key} = $sourceVal;
+		}
+	}
+}
+
+sub getFQDN
+{
+	my $hostName = hostname();
+	
+	my $hostAddr = gethostbyname($hostName)
+		or die(_tr("unable to get address of host '%s'", $hostName));
+	my $FQDN = gethostbyaddr($hostAddr, AF_INET)
+		or die(_tr("unable to get dns-name of address '%s'", $hostAddr));
+	return $FQDN;
+}
+
 1;