From c282e2e671b8624bae74d82399f3d2c092aab0c5 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Tue, 1 May 2007 21:28:53 +0000
Subject: * re-added selectBaseURL() as this is being used by meta-packager,
 too.

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@984 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 installer/OpenSLX/OSSetup/Engine.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/installer/OpenSLX/OSSetup/Engine.pm b/installer/OpenSLX/OSSetup/Engine.pm
index 584e6f65..fde5f2f9 100644
--- a/installer/OpenSLX/OSSetup/Engine.pm
+++ b/installer/OpenSLX/OSSetup/Engine.pm
@@ -410,6 +410,20 @@ sub createMetaPackager
 	$self->{'meta-packager'} = $metaPackager;
 }
 
+sub selectBaseURL
+{
+	my $self = shift;
+	my $repoInfo = shift;
+
+	my $baseURL = $repoInfo->{url};
+	if (!defined $baseURL) {
+		my @baseURLs = string2Array($repoInfo->{urls});
+		# TODO: insert a closest mirror algorithm here!
+		$baseURL = $baseURLs[0];
+	}
+	return $baseURL;
+}
+
 sub sortRepositoryURLs
 {
 	my $self = shift;
-- 
cgit v1.2.3-55-g7522