aboutsummaryrefslogtreecommitdiffstats
path: root/grpmi/grpmi.pl
diff options
context:
space:
mode:
Diffstat (limited to 'grpmi/grpmi.pl')
-rwxr-xr-xgrpmi/grpmi.pl11
1 files changed, 8 insertions, 3 deletions
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;