From 3102c9c1d331b1e85443ff21e2f00d2e091f688d Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Sat, 21 Aug 2004 17:03:00 +0000 Subject: - Added fully automatic, non-interactive, X-less print queue set up by the "autosetupprintqueues" command, preferrably to be started by hotplug. - Typo correction. - Correction of file check for package installation. --- perl-install/standalone/autosetupprintqueues | 51 ++++++++++++++++++++++++++++ 1 file changed, 51 insertions(+) create mode 100755 perl-install/standalone/autosetupprintqueues (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/autosetupprintqueues b/perl-install/standalone/autosetupprintqueues new file mode 100755 index 000000000..85a688af5 --- /dev/null +++ b/perl-install/standalone/autosetupprintqueues @@ -0,0 +1,51 @@ +#!/usr/bin/perl +# +# Copyright (C) 2003-2004 Mandrakesoft +# +# Till Kamppeter +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License Version 2 as +# published by the Free Software Foundation. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +# + +use strict; +use lib qw(/usr/lib/libDrakX); +use standalone; +use printer::printerdrake; +use printer::main; + +# Data structure for printer data +my $printer; + +# Dummy variable needed to call the subroutines of the printerdrak.pm module +# The real data structure is not needed for non-interactive mode +my $in; + +# Run the subroutines of printerdrake.pm in non-interactive non-X mode +$::noX = 1; + +# Do not let printerdrake ask for the spooler +$printer->{SPOOLER} ||= 'cups'; + +# Were we in expert mode last time? +$printer->{expert} = printer::main::get_usermode(); + +# Do not auto-install queues in expert mode +exit 0 if $printer->{expert}; + +# Get info about already installed print queues +eval { $printer = printer::main::getinfo('') }; + +# Run the automatic, non-interactive print queue setup of printerdrake +printer::printerdrake::init($printer, $in); + -- cgit v1.2.1