diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2002-08-19 16:15:04 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2002-08-19 16:15:04 +0000 |
| commit | 1264713a8aff11e4e22651541fab032634082ff8 (patch) | |
| tree | bf2238223c1ce8681ccb923b6f883db8cf751947 | |
| parent | bf2642f9ca111083b5a96c78ecd17aabba86fa72 (diff) | |
| download | rpmdrake-1264713a8aff11e4e22651541fab032634082ff8.tar rpmdrake-1264713a8aff11e4e22651541fab032634082ff8.tar.gz rpmdrake-1264713a8aff11e4e22651541fab032634082ff8.tar.bz2 rpmdrake-1264713a8aff11e4e22651541fab032634082ff8.tar.xz rpmdrake-1264713a8aff11e4e22651541fab032634082ff8.zip | |
add an rcfile and the "noclearcache" option
| -rwxr-xr-x | grpmi/grpmi.pl | 11 |
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; |