From 05b36518c04d058352c1a0c9f4a0f16c2240e712 Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Sun, 13 Feb 2005 23:02:33 +0000
Subject: Allow HPLIP setup also when setting up the print queue manually.

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

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

diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index 405c2f353..6af5aad63 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -2524,6 +2524,23 @@ sub start_hplip {
     return undef;
 }
 
+sub start_hplip_manual {
+
+    # Start HPLIP daemons
+    printer::services::start_not_running_service("hplip");
+
+    # Return all possible device URIs
+    open(my $F, ($::testing ? $::prefix : "chroot $::prefix/ ") .
+	 '/bin/sh -c "export LC_ALL=C; /usr/lib/cups/backend/hp" |') or
+	 die 'Could not run "/usr/lib/cups/backend/hp"!';
+    my @uris;
+    while (<$F>) {
+        m!^direct\s+(hp:\S+)\s+!;
+	push(@uris, $1);
+    }
+    return @uris;
+}
+
 sub configure_hpoj {
     my ($device, @autodetected) = @_;
 
-- 
cgit v1.2.1