From 26719f96ed82368718e99684c4e7121bc6a4fa9d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 2 Mar 2006 19:34:46 +0000 Subject: fix parsing new SOAP structure --- mdkupdate | 7 +++++-- 1 file 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 }); } } -- cgit v1.2.1