From 02081920cdd5d13ab0a8baedd20ebff70dba6343 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Tue, 22 Feb 2005 13:13:22 +0000 Subject: Verify free space on disk for copying rpms --- perl-install/install_steps_gtk.pm | 12 +++++++++--- perl-install/pkgs.pm | 2 +- 2 files changed, 10 insertions(+), 4 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 4c54164fa..36842d559 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -659,11 +659,17 @@ sub deselectFoundMedia { } my @selection = (1) x @hdlist2; my $copy_rpms_on_disk = 0; + my $ask_copy_rpms_on_disk = $o->{method} !~ /-iso$/; #- check available size for copying rpms from infos in hdlists file - if ($totalsize >= 0) { - # TODO my $availvar = install_any::getAvailableSpace_mounted('/var'); + if ($ask_copy_rpms_on_disk && $totalsize >= 0) { + my (undef, $availvar) = install_any::getAvailableSpace_mounted('/var'); + $availvar /= 1024; #- Mo + log::l("rpms totalsize=$totalsize"); + $ask_copy_rpms_on_disk = $totalsize > $availvar * 0.6; } - if ($o->{method} !~ /-iso$/) { + if ($ask_copy_rpms_on_disk) { + #- don't be afraid, cleanup old RPMs if upgrade + rm_rf("$::prefix/var/ftp/pub/Mandrakelinux") if $o->{isUpgrade}; my $w = ugtk2->new(""); $i = -1; $w->sync; diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 3a421368b..4c100789a 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -424,7 +424,7 @@ sub psUsingHdlists { $o_hdlistsprefix ? ($is_ftp ? "media/media_info/$hdlist" : "$o_hdlistsprefix/media/media_info/$hdlist") : undef, ]; if ($size) { - ($mediumsize{$hdlist}) = $size =~ /(\d+)/; + ($mediumsize{$hdlist}) = $size =~ /(\d+)/; #- XXX assume Mo } else { $mediumsize{$hdlist} = 0; } -- cgit v1.2.1