diff options
| -rw-r--r-- | installer/OpenSLX/OSSetup/Engine.pm | 14 |
1 files changed, 14 insertions, 0 deletions
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; |