summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone.pm')
-rw-r--r--perl-install/standalone.pm33
1 files changed, 28 insertions, 5 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index b74253f72..408088b33 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -10,11 +10,34 @@ c::setlocale();
c::bindtextdomain('libDrakX', "/usr/share/locale");
-sub pkgs_install {
- my ($in, @l) = @_;
- $in->suspend;
- my $ret = system('urpmi --auto --best-output ' . join(' ', @l));
- $in->resume;
+
+package interactive_pkgs;
+
+sub interactive::do_pkgs {
+ my ($in) = @_;
+ bless { in => $in }, 'interactive_pkgs';
+}
+
+sub install {
+ my ($o, @l) = @_;
+ $o->{in}->suspend;
+ my $ret = system('urpmi', '--auto', '--best-output', @l);
+ $o->{in}->resume;
+ $ret;
+}
+
+sub install_if {
+ my ($o, $deps, @l) = @_;
+ my @deps = deref($deps);
+ system('rpm', '-q', @deps) == 0 or return;
+ install($o, @l);
+}
+
+sub remove {
+ my ($o, @l) = @_;
+ $o->{in}->suspend;
+ my $ret = system('rpm', '-e ', @l);
+ $o->{in}->resume;
$ret;
}