aboutsummaryrefslogtreecommitdiffstats
path: root/grpmi/grpmi.pl
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-08-19 16:15:04 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-08-19 16:15:04 +0000
commit1264713a8aff11e4e22651541fab032634082ff8 (patch)
treebf2238223c1ce8681ccb923b6f883db8cf751947 /grpmi/grpmi.pl
parentbf2642f9ca111083b5a96c78ecd17aabba86fa72 (diff)
downloadrpmdrake-1264713a8aff11e4e22651541fab032634082ff8.tar
rpmdrake-1264713a8aff11e4e22651541fab032634082ff8.tar.gz
rpmdrake-1264713a8aff11e4e22651541fab032634082ff8.tar.bz2
rpmdrake-1264713a8aff11e4e22651541fab032634082ff8.tar.xz
rpmdrake-1264713a8aff11e4e22651541fab032634082ff8.zip
add an rcfile and the "noclearcache" option
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;