From 1264713a8aff11e4e22651541fab032634082ff8 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Mon, 19 Aug 2002 16:15:04 +0000
Subject: add an rcfile and the "noclearcache" option

---
 grpmi/grpmi.pl | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'grpmi')

diff --git a/grpmi/grpmi.pl b/grpmi/grpmi.pl
index 63938d10..7d2528e8 100755
--- a/grpmi/grpmi.pl
+++ b/grpmi/grpmi.pl
@@ -65,6 +65,9 @@ $> and interactive_msg(_("Error..."),
 grpmi_rpm::init_rcstuff() and interactive_msg(_("RPM initialization error"),
 					      _("The initialization of config files of RPM was not possible, sorry.")), exit -1;
 
+$ENV{HOME} ||= '/root';
+my @grpmi_config = map { chomp_($_) } cat_("$ENV{HOME}/.grpmi");
+
 my $mainw = my_gtk->new('grpmi');
 my $label = new Gtk::Label(_("Initializing..."));
 my $progressbar = gtkset_usize(new Gtk::ProgressBar, 400, 0);
@@ -168,8 +171,10 @@ Do you want to force the install anyway?",
 # -=-=-=---=-=-=---=-=-=-- cleanup -=-=-=---=-=-=--
 $exitstatus = 0;
 cleanup:
-foreach (@ARGV) {
-    s/^-skipped&([^&]+)&$/$1/;
-    /^\Q$cache_location/ and unlink;
+if (!member('noclearcache', @grpmi_config)) {
+    foreach (@ARGV) {
+	s/^-skipped&([^&]+)&$/$1/;
+	/^\Q$cache_location/ and unlink;
+    }
 }
 exit $exitstatus;
-- 
cgit v1.2.1