summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--NEWS4
-rwxr-xr-xgurpmi219
2 files changed, 14 insertions, 9 deletions
diff --git a/NEWS b/NEWS
index fec99578..b047cfe2 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,7 @@
+- gurpmi2:
+ o display the addionnal space that will be used and the amount of downloaded
+ packages instead of the total size of the packages (like urpmi)
+
Version 7.22 - 21 March 2013, by Thierry Vignaud
- library:
diff --git a/gurpmi2 b/gurpmi2
index 47bc0225..904df619 100755
--- a/gurpmi2
+++ b/gurpmi2
@@ -232,22 +232,23 @@ sub do_install {
}
sub do_install_2 () {
- my @to_install;
- my $sum;
- foreach my $pkg (sort { $a->name cmp $b->name } @{$urpm->{depslist}}[keys %{$state->{selected}}]) {
- if ($pkg->arch ne 'src') {
- push @to_install, scalar $pkg->fullname;
- $sum += $pkg->size;
- }
- }
+ my @to_install = map { scalar $_->fullname } @{$urpm->{depslist}}[sort { $a <=> $b } keys %{$state->{selected}}]; # sorted by medium for format_selected_packages
$urpm->{nb_install} = @to_install;
+ my ($size, $filesize) = $urpm->selected_size_filesize($state);
+ my $msg2 = $size >= 0 ?
+ N("%s of additional disk space will be used.", formatXiB($size)) :
+ N("%s of disk space will be freed.", formatXiB(-$size));
+ my $msg2_ = $filesize ? "\n" . N("%s of packages will be retrieved.", formatXiB($filesize)) . "\n" : '';
+ my $msg3 = P("Proceed with the installation of one package?",
+ "Proceed with the installation of the %d packages?",
+ $urpm->{nb_install}, $urpm->{nb_install});
@to_install > 1
? ask_continue_if_no_auto(
(scalar(@to_install) == 1 ?
N("To satisfy dependencies, the following package is going to be installed:")
: N("To satisfy dependencies, the following packages are going to be installed:"))
. join("\n", '', @to_install, '')
- . P("(%d package, %d MB)", "(%d packages, %d MB)", scalar(@to_install), scalar(@to_install), toMb($sum)),
+ . "\n" . $msg2 . $msg2_ . $msg3,
, \&do_install_3)
: goto \&do_install_3;
}