diff options
| author | Francois Pons <fpons@mandriva.com> | 1999-12-17 13:23:01 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 1999-12-17 13:23:01 +0000 |
| commit | 066052c2d8fc8c5e39d40696819f5cb56b304d01 (patch) | |
| tree | 7bbfb5e5e913c9fa28bd403d92ea6b58d93e0b07 /perl-install/printerdrake.pm | |
| parent | b3b22a31f8ed8be86caab15d544dd37b34fa1c35 (diff) | |
| download | drakx-backup-do-not-use-066052c2d8fc8c5e39d40696819f5cb56b304d01.tar drakx-backup-do-not-use-066052c2d8fc8c5e39d40696819f5cb56b304d01.tar.gz drakx-backup-do-not-use-066052c2d8fc8c5e39d40696819f5cb56b304d01.tar.bz2 drakx-backup-do-not-use-066052c2d8fc8c5e39d40696819f5cb56b304d01.tar.xz drakx-backup-do-not-use-066052c2d8fc8c5e39d40696819f5cb56b304d01.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/printerdrake.pm')
| -rw-r--r-- | perl-install/printerdrake.pm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm index c41d1b0b0..c014440c1 100644 --- a/perl-install/printerdrake.pm +++ b/perl-install/printerdrake.pm @@ -233,7 +233,7 @@ _("Color depth options") => { val => \$printer->{BITSPERPIXEL}, type => 'list', if $action eq "ps" || $action eq "both"; if (@testpages) { - my $w = $in->wait_message('', _(@testpages > 1 ? "Printing tests pages..." : "Printing test page...")); + my $w = $in->wait_message('', _("Printing test page(s)...")); #- restart lpd with blank spool queue. foreach (("/var/spool/lpd/$printer->{QUEUE}/lock", "/var/spool/lpd/lpd.lock")) { @@ -245,15 +245,19 @@ _("Color depth options") => { val => \$printer->{BITSPERPIXEL}, type => 'list', run_program::rooted($prefix, "lpr", "-P$printer->{QUEUE}", $_) foreach @testpages; - sleep 3; #- allow lpr to send pages. + sleep 5; #- allow lpr to send pages. local *F; open F, "chroot $prefix/ /usr/bin/lpq -P$printer->{QUEUE} |"; my @lpq_output = grep { !/^no entries/ && !(/^Rank\s+Owner/ .. /^\s*$/) } <F>; undef $w; #- erase wait message window. if (@lpq_output) { - $action = $in->ask_yesorno('', _("Is this correct? Printing status:\n%s", "@lpq_output"), 1) ? 'done' : 'change'; + $action = $in->ask_yesorno('', _("Test page(s) have been sent to the printer daemon. +This may take a little time before printer start. +Does it work properly? Printing status:\n%s", "@lpq_output"), 1) ? 'done' : 'change'; } else { - $action = $in->ask_yesorno('', _("Is this correct?"), 1) ? 'done' : 'change'; + $action = $in->ask_yesorno('', _("Test page(s) have been sent to the printer daemon. +This may take a little time before printer start. +Does it work properly?"), 1) ? 'done' : 'change'; } } } while ($action ne 'done'); |