diff options
Diffstat (limited to 'urpm/get_pkgs.pm')
| -rw-r--r-- | urpm/get_pkgs.pm | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/urpm/get_pkgs.pm b/urpm/get_pkgs.pm index 682fe20d..726b244f 100644 --- a/urpm/get_pkgs.pm +++ b/urpm/get_pkgs.pm @@ -176,7 +176,7 @@ sub download_packages_of_distant_media { #- get back all ftp and http accessible rpm files into the local cache foreach my $blist (@$blists) { - my %blist_distant = (%$blist, list => {}); + my %blist_distant = (%$blist, pkgs => {}); #- examine all files to know what can be indexed on multiple media. while (my ($id, $url) = each %{$blist->{list}}) { @@ -190,13 +190,13 @@ sub download_packages_of_distant_media { $errors{$id} = [ $local_file, 'missing' ]; } } elsif ($url =~ m!^([^:]*):/(.*/([^/]*\.rpm))\Z!) { - $blist_distant{list}{$id} = "$1:/$2"; #- will download now + $blist_distant{pkgs}{$id} = $blist->{pkgs}{$id}; } else { $urpm->{error}(N("malformed URL: [%s]", $url)); } } - if (%{$blist_distant{list}}) { + if (%{$blist_distant{pkgs}}) { _download_packages_of_distant_media($urpm, $sources, \%errors, \%blist_distant, %options); } } @@ -225,7 +225,7 @@ sub _download_packages_of_distant_media { } $urpm->{log}(N("retrieving rpm files from medium \"%s\"...", $blist->{media}{name})); - if (urpm::download::sync($urpm, $blist->{media}, [ values %{$blist->{list}} ], + if (urpm::download::sync($urpm, $blist->{media}, [ urpm::blist_to_urls($blist) ], dir => "$cachedir/partial", quiet => $options{quiet}, resume => $urpm->{options}{resume}, callback => $options{callback})) { $urpm->{log}(N("...retrieving done")); @@ -237,9 +237,10 @@ sub _download_packages_of_distant_media { #- there have been problems downloading them at least once, this #- is necessary to keep track of failing downloads in order to #- present the error to the user. - foreach my $id (keys %{$blist->{list}}) { - my $url = $blist->{list}{$id}; - my ($filename) = $url =~ m|/([^/]*\.rpm)$|; + foreach my $id (keys %{$blist->{pkgs}}) { + my $pkg = $blist->{pkgs}{$id}; + my $filename = $pkg->filename; + my $url = urpm::blist_pkg_to_url($blist, $pkg); if ($filename && -s "$cachedir/partial/$filename") { if (my $rpm = verify_partial_rpm_and_move($urpm, $cachedir, $filename)) { $sources->{$id} = $rpm; |