summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/autosetupprintqueues
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/autosetupprintqueues')
-rwxr-xr-xperl-install/standalone/autosetupprintqueues100
1 files changed, 0 insertions, 100 deletions
diff --git a/perl-install/standalone/autosetupprintqueues b/perl-install/standalone/autosetupprintqueues
deleted file mode 100755
index 2f9af40a2..000000000
--- a/perl-install/standalone/autosetupprintqueues
+++ /dev/null
@@ -1,100 +0,0 @@
-#!/usr/bin/perl
-#
-# Copyright (C) 2003-2005 Mandriva
-#
-# Till Kamppeter <till@mandrakesoft.com>
-#
-# 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;
-
-# Read mode in which we will run
-my $commandline = join('', @ARGV);
-$commandline =~ /-(auto|nogui|gui|waitforgui)\b/;
-my $gui = $1;
-$gui ||= "auto";
-
-$gui = "nogui" if (! -x "/usr/X11R6/bin/X");
-
-if ($gui ne "nogui") {
- # Auto-detect whether we go in non-X mode or not
- my $desktopuser;
- $desktopuser = `cat /var/run/console.lock 2>/dev/null` or
- $desktopuser = `cat /var/run/console/console.lock 2>/dev/null`;
- if (!$desktopuser) {
- if ($gui eq "auto") {
- # Non-X mode
- $gui = "nogui";
- } elsif ($gui eq "waitforgui") {
- # Wait until a user logs in on the system's X console
- while (!($desktopuser = `cat /var/run/console.lock 2>/dev/null`)) {
- sleep(5);
- }
- # Wait for the window manager to start
- sleep(10);
- $gui = "gui";
- } else {
- # "gui" was requested but no user logged in
- die "Cannot start in '--gui' mode, no user logged in!\n";
- }
- } else {
- # X mode (a user is logged in)
- $gui = "gui";
- }
-
- if ($gui eq "gui") {
- # Allow root's windows to be opened on the user's display and
- # start printerdrake then, in a mode to do nothing else than
- # automatically setting up print queues.
- my $userhome =
- `getent passwd $desktopuser|awk -F: '{print \$6}' 2>&1`;
- chomp $userhome;
- my $errfile = "/dev/null";
- if (-r "$userhome/.Xauthority") {
- system "export DISPLAY=\":0.0\"; export USER=$desktopuser; [ -r /etc/sysconfig/i18n ] >> $errfile 2>&1 && for l in `cat /etc/sysconfig/i18n`; do export \$l; done >> $errfile 2>&1; [ -r $userhome/.i18n ] >> $errfile 2>&1 && for l in `cat $userhome/.i18n`; do export \$l; done >> $errfile 2>&1; export XAUTHORITY=$userhome/.Xauthority; /usr/sbin/printerdrake --onlyautoqueue >> $errfile 2>&1;";
- } else {
- system "export DISPLAY=\":0.0\"; export USER=$desktopuser; [ -r /etc/sysconfig/i18n ] >> $errfile 2>&1 && for l in `cat /etc/sysconfig/i18n`; do export \$l; done >> $errfile 2>&1; [ -r $userhome/.i18n ] >> $errfile 2>&1 && for l in `cat $userhome/.i18n`; do export \$l; done >> $errfile 2>&1; /bin/su $desktopuser -c \"/usr/X11R6/bin/xhost +localhost >> $errfile 2>&1\"; /usr/sbin/printerdrake --onlyautoqueue >> $errfile 2>&1; /bin/su $desktopuser -c \"/usr/X11R6/bin/xhost -localhost >> $errfile 2>&1\"";
- }
- exit 0;
- }
-}
-
-# Data structure for printer data
-my $printer;
-
-# Dummy variable needed to call the subroutines of the printerdrake.pm
-# module. The real data structure is not needed for non-interactive
-# non-X mode
-my $in;
-
-# Run the subroutines of printerdrake.pm in non-interactive non-X mode
-$::noX = 1;
-
-# Subroutines of printerdrake.pm used for automatic setup of print queues
-$::autoqueue = 1;
-
-# Do not let printerdrake ask for the spooler
-$printer->{SPOOLER} ||= 'cups';
-
-# 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);
-