From 814ebdbbb3d4c7b02ab1746c57df605ff443ea27 Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Sun, 5 Aug 2001 00:39:39 +0000
Subject: Automatic installation and start of the desired printer spooler

---
 perl-install/printer.pm | 42 +++++++++++++++++++++++++++++++++++-------
 1 file changed, 35 insertions(+), 7 deletions(-)

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

diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 59f4ce9a0..bf98ddc3d 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -1,9 +1,8 @@
 package printer;
 # $Id$
 
-
-
-
+#use diagnostics;
+#use strict;
 
 
 use common;
@@ -14,9 +13,11 @@ use run_program;
 my $prefix = "";
 
 #-location of the printer database in an installed system
-my $PRINTER_DB_FILE    = "/usr/share/foomatic/db/compiled/overview.xml";
+my $PRINTER_DB_FILE = "/usr/share/foomatic/db/compiled/overview.xml";
+#-configuration directory of Foomatic
+my $FOOMATICCONFDIR = "/etc/foomatic"; 
 #-location of the file containing the default spooler's name
-my $FOOMATIC_DEFAULT_SPOOLER = "/etc/foomatic/defaultspooler";
+my $FOOMATIC_DEFAULT_SPOOLER = "$FOOMATICCONFDIR/defaultspooler";
 
 %spooler = (
     __("CUPS - Common Unix Printing System") => "cups",
@@ -72,11 +73,38 @@ sub get_default_spooler () {
 
 sub set_default_spooler ($) {
     my ($printer) = @_;
-    open DEFSPOOL, "> $prefix$FOOMATIC_DEFAULT_SPOOLER";
+    # Make Foomatic config directory if it does not exist yet
+    if (!(-d $FOOMATICCONFDIR)) {mkdir $FOOMATICCONFDIR;}
+    # Mark the default driver in a file
+    open DEFSPOOL, "> $prefix$FOOMATIC_DEFAULT_SPOOLER" || 
+	die "Cannot create $prefix$FOOMATIC_DEFAULT_SPOOLER!";
     print DEFSPOOL $printer->{SPOOLER};
     close DEFSPOOL;
 }
 
+sub restart_service ($) {
+    my ($service) = @_;
+    run_program::rooted($prefix, "/etc/rc.d/init.d/$service restart")
+	|| die "Could not restart $service!";
+}
+
+sub start_service ($) {
+    my ($service) = @_;
+    run_program::rooted($prefix, "/etc/rc.d/init.d/$service start")
+	|| die "Could not start $service!";
+}
+
+sub stop_service ($) {
+    my ($service) = @_;
+    run_program::rooted($prefix, "/etc/rc.d/init.d/$service stop")
+	|| die "Could not stop $service!";
+}
+
+sub remove_package ($) {
+    my ($package) = @_;
+    run_program::rooted($prefix, "rpm -e --nodeps $package") || do {};
+}
+
 sub copy_printer_params($$) {
     my ($from, $to) = @_;
     map { $to->{$_} = $from->{$_} } grep { $_ ne 'configured' } keys %$from; 
@@ -609,7 +637,7 @@ sub restart_queue($) {
     for ($printer->{SPOOLER}) {
 	/cups/ && do {
 	    #- restart cups.
-	    run_program::rooted($prefix, "/etc/rc.d/init.d/cups start"); sleep 1;
+	    run_program::rooted($prefix, "/etc/rc.d/init.d/cups restart"); sleep 1;
 	    last };
 	/lpr|lprng/ && do {
 	    #- restart lpd.
-- 
cgit v1.2.1