From 56e07e315562a6cdc391f0b460e629b9e1a45506 Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Mon, 30 Aug 2004 05:56:11 +0000 Subject: - Added column to show whether the printers are enabled or disables to the list of available print queues in the main window. - Added command to the edit-printer window to enable and disable print queues. - Fixed bug of "--expert" command line option of printerdrake not working. --- perl-install/printer/cups.pm | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'perl-install/printer/cups.pm') diff --git a/perl-install/printer/cups.pm b/perl-install/printer/cups.pm index 79ca291b3..64b0df045 100644 --- a/perl-install/printer/cups.pm +++ b/perl-install/printer/cups.pm @@ -133,4 +133,13 @@ sub get_remote_queues { } lpstat_v(); } +sub queue_enabled { + my ($queue) = @_; + 0 != grep { + /\b$queue\b.*\benabled\b/i + } run_program::rooted_get_stdout($::prefix, 'lpstat', '-p', $queue); +} + + + 1; -- cgit v1.2.1