diff options
| author | Oliver Tappe | 2007-05-01 23:28:53 +0200 |
|---|---|---|
| committer | Oliver Tappe | 2007-05-01 23:28:53 +0200 |
| commit | c282e2e671b8624bae74d82399f3d2c092aab0c5 (patch) | |
| tree | 50d31468e241ffa027d44b804fdba598acad8e17 /installer/OpenSLX/OSSetup/Engine.pm | |
| parent | Script order had to be readjusted ... (diff) | |
| download | core-c282e2e671b8624bae74d82399f3d2c092aab0c5.tar.gz core-c282e2e671b8624bae74d82399f3d2c092aab0c5.tar.xz core-c282e2e671b8624bae74d82399f3d2c092aab0c5.zip | |
* 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
Diffstat (limited to 'installer/OpenSLX/OSSetup/Engine.pm')
| -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; |