From 8a41cf834dda0b87aa1b155c1c6919b7eff8449a Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Tue, 7 Aug 2001 22:56:55 +0000
Subject: Automatic installation of all needed packages

---
 perl-install/printer.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'perl-install/printer.pm')

diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index bf98ddc3d..dda9dccea 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -105,6 +105,21 @@ sub remove_package ($) {
     run_program::rooted($prefix, "rpm -e --nodeps $package") || do {};
 }
 
+sub installed ($) {
+    my ($package) = @_;
+    open RPMCHECK, "rpm -qa | 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; 
-- 
cgit v1.2.1