diff options
| author | Till Kamppeter <tkamppeter@mandriva.com> | 2005-07-27 08:08:05 +0000 |
|---|---|---|
| committer | Till Kamppeter <tkamppeter@mandriva.com> | 2005-07-27 08:08:05 +0000 |
| commit | f4f246d4a12ce137e1e73b8c0d590da3d9337b5f (patch) | |
| tree | 87fe6a5fff61ba70a489710837010150c7d203b6 /perl-install/standalone/printerdrake | |
| parent | 4cb36e102e377ddfd1cdd52d8edce3141518183e (diff) | |
| download | drakx-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-x | perl-install/standalone/printerdrake | 12 |
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 = ''; |