From ef5d4874ed831dfcdc342d4ca3c52e742686d974 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Thu, 13 Feb 2003 14:31:52 +0000 Subject: if there was an error during installation, propose to remove the cached/downloaded packages or not (partially follows a nice suggestion by Jeff Martin ) --- grpmi/grpmi.pl | 12 ++++++++---- rpmdrake.spec | 7 ++++++- 2 files changed, 14 insertions(+), 5 deletions(-) diff --git a/grpmi/grpmi.pl b/grpmi/grpmi.pl index d763e61e..f5be91cb 100755 --- a/grpmi/grpmi.pl +++ b/grpmi/grpmi.pl @@ -203,12 +203,16 @@ Install aborted.", # -=-=-=---=-=-=---=-=-=-- cleanup -=-=-=---=-=-=-- $exitstatus = 0; -$mainw->{rwindow}->hide; cleanup: if (!member('noclearcache', @grpmi_config)) { - foreach (@ARGV) { - s/^-skipped&([^&]+)&$/$1/; - /^\Q$cache_location/ and unlink; + my @toclean = map { s/^-skipped&([^&]+)&$/$1/; if_(/^\Q$cache_location/, $_) } @ARGV; + if ($forced_exitstatus || $exitstatus) { + interactive_msg(_("Cleanup"), +_("Cleanup question: there was an error during installation, do you want to +remove the %d downloaded package(s)? +(they are located in %s)", scalar(@toclean), $cache_location), 1) or goto exiting; } + unlink @toclean; } +exiting: mexit($forced_exitstatus || $exitstatus); diff --git a/rpmdrake.spec b/rpmdrake.spec index 6b67d3cd..f0d67b86 100644 --- a/rpmdrake.spec +++ b/rpmdrake.spec @@ -8,7 +8,7 @@ %define name rpmdrake %define version 2.1 -%define release 5mdk +%define release 6mdk Name: %{name} Version: %{version} @@ -116,6 +116,11 @@ rm -rf $RPM_BUILD_ROOT %{perl_vendorarch}/*.pm %changelog +* Thu Feb 13 2003 Guillaume Cottenceau 2.1-6mdk +- grpmi: if there was an error during installation, propose to + remove the cached/downloaded packages or not (partially follows + a nice suggestion by Jeff Martin ) + * Tue Feb 11 2003 Guillaume Cottenceau 2.1-5mdk - rpmdrake: - mark version as 9.1 -- cgit v1.2.1