diff options
author | Mystery Man <unknown@mandriva.org> | 2001-09-05 12:55:06 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2001-09-05 12:55:06 +0000 |
commit | ec7d8bfda214073d222fcadfa1ac9d3ed884ea87 (patch) | |
tree | d17c669ffaea9eae8bbc6b1b82b6164e75c6c42d /perl-install/standalone.pm | |
parent | d2428470c34f096821615c7f119775b03aa86253 (diff) | |
download | drakx-V_9mdk.tar drakx-V_9mdk.tar.gz drakx-V_9mdk.tar.bz2 drakx-V_9mdk.tar.xz drakx-V_9mdk.zip |
This commit was manufactured by cvs2svn to create tag 'V_9mdk'.V_9mdk
Diffstat (limited to 'perl-install/standalone.pm')
-rw-r--r-- | perl-install/standalone.pm | 54 |
1 files changed, 0 insertions, 54 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm deleted file mode 100644 index 8f3c641bb..000000000 --- a/perl-install/standalone.pm +++ /dev/null @@ -1,54 +0,0 @@ -package standalone; # $Id$ - -use c; - -$::isStandalone = 1; - -$ENV{SHARE_PATH} ||= "/usr/share"; - -c::setlocale(); -c::bindtextdomain('libDrakX', "/usr/share/locale"); - - - -################################################################################ -package pkgs_interactive; - -sub interactive::do_pkgs { - my ($in) = @_; - bless { in => $in }, 'pkgs_interactive'; -} - -sub install { - my ($o, @l) = @_; - $o->{in}->suspend; - my $ret = system('urpmi', '--allow-medium-change', '--auto', '--best-output', @l) == 0; - $o->{in}->resume; - $ret; -} - -sub is_installed { - my ($o, @l) = @_; - system('rpm', '-q', @l) == 0; -} - -sub remove { - my ($o, @l) = @_; - $o->{in}->suspend; - my $ret = system('rpm', '-e', @l) == 0; - $o->{in}->resume; - $ret; -} - -sub remove_nodeps { - my ($o, @l) = @_; - $o->{in}->suspend; - my $ret = system('rpm', '-e', '--nodeps', @l) == 0; - $o->{in}->resume; - $ret; -} -################################################################################ - -package standalone; - -1; |