summaryrefslogtreecommitdiffstats
path: root/perl-install/printer.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-08 18:26:31 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-08 18:26:31 +0000
commit157fe13a76e798fa8af5f79c792c704a593f6c93 (patch)
tree7dded9e6761033f09709722965d15b14ce7825bd /perl-install/printer.pm
parentb4fd82d0ced6a2118a51b060d2eff8c4f179b52b (diff)
downloaddrakx-backup-do-not-use-157fe13a76e798fa8af5f79c792c704a593f6c93.tar
drakx-backup-do-not-use-157fe13a76e798fa8af5f79c792c704a593f6c93.tar.gz
drakx-backup-do-not-use-157fe13a76e798fa8af5f79c792c704a593f6c93.tar.bz2
drakx-backup-do-not-use-157fe13a76e798fa8af5f79c792c704a593f6c93.tar.xz
drakx-backup-do-not-use-157fe13a76e798fa8af5f79c792c704a593f6c93.zip
add interactive_pkgs stuff
Diffstat (limited to 'perl-install/printer.pm')
-rw-r--r--perl-install/printer.pm15
1 files changed, 0 insertions, 15 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 91e11bdf3..6b5fe10df 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -100,21 +100,6 @@ sub stop_service ($) {
|| die "Could not stop $service!";
}
-sub installed ($) {
- my ($package) = @_;
- open RPMCHECK, "rpm -qa --root $prefix/ | grep $package |" ||
- die "Could not run rpm!";
- my $found = 0;
- while (<RPMCHECK>) {
- if ($_ =~ m/^$package\-.+\-.+mdk/) {
- $found = 1;
- last;
- }
- }
- close RPMCHECK;
- return $found;
-}
-
sub copy_printer_params($$) {
my ($from, $to) = @_;
map { $to->{$_} = $from->{$_} } grep { $_ ne 'configured' } keys %$from;