summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/printerdrake
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2005-07-27 08:08:05 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2005-07-27 08:08:05 +0000
commitf4f246d4a12ce137e1e73b8c0d590da3d9337b5f (patch)
tree87fe6a5fff61ba70a489710837010150c7d203b6 /perl-install/standalone/printerdrake
parent4cb36e102e377ddfd1cdd52d8edce3141518183e (diff)
downloaddrakx-backup-do-not-use-f4f246d4a12ce137e1e73b8c0d590da3d9337b5f.tar
drakx-backup-do-not-use-f4f246d4a12ce137e1e73b8c0d590da3d9337b5f.tar.gz
drakx-backup-do-not-use-f4f246d4a12ce137e1e73b8c0d590da3d9337b5f.tar.bz2
drakx-backup-do-not-use-f4f246d4a12ce137e1e73b8c0d590da3d9337b5f.tar.xz
drakx-backup-do-not-use-f4f246d4a12ce137e1e73b8c0d590da3d9337b5f.zip
- Started implementation of configurable, partially interactive print
queue auto setup.
Diffstat (limited to 'perl-install/standalone/printerdrake')
-rwxr-xr-xperl-install/standalone/printerdrake12
1 files changed, 10 insertions, 2 deletions
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake
index be0716c79..2c4cc8eb2 100755
--- a/perl-install/standalone/printerdrake
+++ b/perl-install/standalone/printerdrake
@@ -57,6 +57,10 @@ my $in = 'interactive'->vnew('su', if_(!$::isEmbedded, 'printer-mdk'));
my $commandline = $_;
+# Suppress some wait messages to avoid windows popping up if no new print
+# queue has to be set up
+$commandline =~ /-onlyautoqueue/ and $::autoqueue = 1;
+
# Data structure for GTK2 main window
my $us = {};
$us->{VERSION} = '10.2';
@@ -64,8 +68,9 @@ $us->{VERSION} = '10.2';
# Check whether Foomatic is installed and install it if necessary
#printer::printerdrake::install_foomatic($in);
-my $w = $in->wait_message(N("Printerdrake"),
- N("Reading data of installed printers..."));
+my $w = $::autoqueue ||
+ $in->wait_message(N("Printerdrake"),
+ N("Reading data of installed printers..."));
# Get what was installed before
eval { $printer = printer::main::getinfo('') };
@@ -107,6 +112,9 @@ $printer->{SPOOLER} ||= 'cups';
# Initialization
printer::printerdrake::init($printer, $security, $in, undef);
+# Stop here when we are supposed to only automatically set up print queues
+$commandline =~ /-onlyautoqueue/ and exit 0;
+
# GTK2 main window
my $stringsearch = '';