summaryrefslogtreecommitdiffstats
path: root/mdkupdate
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2006-03-02 19:34:46 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2006-03-02 19:34:46 +0000
commit26719f96ed82368718e99684c4e7121bc6a4fa9d (patch)
treea1970cfdf5eab0c6a8541fbe9d049a537bf4c6b3 /mdkupdate
parent1b5d8679ab020ade76c15537087be1f2c3dbc250 (diff)
downloadmgaonline-26719f96ed82368718e99684c4e7121bc6a4fa9d.tar
mgaonline-26719f96ed82368718e99684c4e7121bc6a4fa9d.tar.gz
mgaonline-26719f96ed82368718e99684c4e7121bc6a4fa9d.tar.bz2
mgaonline-26719f96ed82368718e99684c4e7121bc6a4fa9d.tar.xz
mgaonline-26719f96ed82368718e99684c4e7121bc6a4fa9d.zip
fix parsing new SOAP structure
Diffstat (limited to 'mdkupdate')
-rwxr-xr-xmdkupdate7
1 files changed, 5 insertions, 2 deletions
diff --git a/mdkupdate b/mdkupdate
index 38770a1b..d20fe7bc 100755
--- a/mdkupdate
+++ b/mdkupdate
@@ -145,10 +145,13 @@ if (!$bundle) {
if ($bundle_info->{status}) {
my @bundles;
my ($mirrors, $bundle) = ($bundle_info->{data}{mirrors}, $bundle_info->{data}{bundle});
- add_media(split(';', $_, 2), 'hdlist.cz', '') foreach @$mirrors;
+ my %mirrors = map {split(';', $_, 2) } @$mirrors;
+ add_media($_, $mirrors{$_}, 'media_info/hdlist.cz', '') foreach keys %mirrors;
$bundle =~ s/\.rpm$//;
+ my $bundle_mirror = $bundle;
+ $bundle_mirror =~ s/-[0-9.]mdk$//;
push(@bundles, $bundle);
- install_pkgs($in, \@bundles, $media, { is_bundle => 1 });
+ install_pkgs($in, \@bundles, $mirrors{$bundle_mirror}, { is_bundle => 1 });
}
}