summaryrefslogtreecommitdiffstats
path: root/urpm/media.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-02-04 14:04:15 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-02-04 14:04:15 +0000
commit9497ba7914e95a48b80af8270284371bf30e9a80 (patch)
tree74bdc8c89844d8060443b2e2f0bb1b99ec1805b9 /urpm/media.pm
parent5740c412a3cffa30ba685ca9d1c204a883210aeb (diff)
downloadurpmi-9497ba7914e95a48b80af8270284371bf30e9a80.tar
urpmi-9497ba7914e95a48b80af8270284371bf30e9a80.tar.gz
urpmi-9497ba7914e95a48b80af8270284371bf30e9a80.tar.bz2
urpmi-9497ba7914e95a48b80af8270284371bf30e9a80.tar.xz
urpmi-9497ba7914e95a48b80af8270284371bf30e9a80.zip
- library:
o since any_xml_info can be slow, add a "callback" option (#37264)
Diffstat (limited to 'urpm/media.pm')
-rw-r--r--urpm/media.pm19
1 files changed, 10 insertions, 9 deletions
diff --git a/urpm/media.pm b/urpm/media.pm
index 758f2be8..b2367ccb 100644
--- a/urpm/media.pm
+++ b/urpm/media.pm
@@ -305,7 +305,7 @@ sub any_synthesis {
-e $f && $f;
}
sub any_media_info_file {
- my ($urpm, $medium, $prefix, $suffix, $quiet) = @_;
+ my ($urpm, $medium, $prefix, $suffix, $quiet, $o_callback) = @_;
if (my $base = file_from_file_url($medium->{url})) {
my $f = $medium->{with_synthesis}
@@ -314,7 +314,7 @@ sub any_media_info_file {
-e $f && $f;
} else {
- _any_media_info__or_download($urpm, $medium, $prefix, $suffix, $quiet);
+ _any_media_info__or_download($urpm, $medium, $prefix, $suffix, $quiet, $o_callback);
}
}
sub any_hdlist {
@@ -322,8 +322,8 @@ sub any_hdlist {
any_media_info_file($urpm, $medium, 'hdlist', '.cz', $quiet);
}
sub any_xml_info {
- my ($urpm, $medium, $xml_info, $quiet) = @_;
- any_media_info_file($urpm, $medium, $xml_info, '.xml.lzma', $quiet);
+ my ($urpm, $medium, $xml_info, $quiet, $o_callback) = @_;
+ any_media_info_file($urpm, $medium, $xml_info, '.xml.lzma', $quiet, $o_callback);
}
sub name2medium {
@@ -1024,7 +1024,7 @@ sub _download_list_or_pubkey {
}
sub _download_media_info_file {
- my ($urpm, $medium, $prefix, $suffix, $quiet, $o_download_dir) = @_;
+ my ($urpm, $medium, $prefix, $suffix, $quiet, $o_download_dir, $o_callback) = @_;
my $download_dir = $o_download_dir || "$urpm->{cachedir}/partial";
my $name = "$prefix$suffix";
@@ -1034,13 +1034,14 @@ sub _download_media_info_file {
my $local_name = $prefix . _synthesis_suffix($medium) . $suffix;
if (urpm::download::sync($urpm, $medium, [_synthesis_dir($medium) . "/$local_name"],
- dir => $download_dir, quiet => $quiet)) {
+ dir => $download_dir, quiet => $quiet, callback => $o_callback)) {
rename("$download_dir/$local_name", $result_file);
$found = 1;
}
}
if (!$found) {
- urpm::download::sync($urpm, $medium, [_synthesis_dir($medium) . "/$name"], dir => $download_dir, quiet => 1)
+ urpm::download::sync($urpm, $medium, [_synthesis_dir($medium) . "/$name"],
+ dir => $download_dir, quiet => $quiet, callback => $o_callback)
or unlink $result_file;
}
-s $result_file && $result_file;
@@ -1565,7 +1566,7 @@ sub _retrieve_media_info_file_and_check_MD5SUM {
}
sub _any_media_info__or_download {
- my ($urpm, $medium, $prefix, $suffix, $quiet) = @_;
+ my ($urpm, $medium, $prefix, $suffix, $quiet, $o_callback) = @_;
my $name = "$prefix.$medium->{name}$suffix";
my $f = "$urpm->{statedir}/$name";
@@ -1583,7 +1584,7 @@ sub _any_media_info__or_download {
get_medium_option($urpm, $medium, 'xml-info') ne 'never' or return;
my $file_in_partial =
- _download_media_info_file($urpm, $medium, $prefix, $suffix, $quiet, $download_dir) or return;
+ _download_media_info_file($urpm, $medium, $prefix, $suffix, $quiet, $download_dir, $o_callback) or return;
urpm::util::move($file_in_partial, $f) or return;