diff options
author | Francois Pons <fpons@mandriva.com> | 1999-11-08 11:55:10 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 1999-11-08 11:55:10 +0000 |
commit | 38c803288507d86bfd04daf2f7a4b656f2c7de7b (patch) | |
tree | 16f184767c0e0aace952cc78149ea6caf5f904d2 /perl-install/install_steps_interactive.pm | |
parent | a6a2a1bf5170b9d8185dd61314c2ec6fcd29e404 (diff) | |
download | drakx-backup-do-not-use-38c803288507d86bfd04daf2f7a4b656f2c7de7b.tar drakx-backup-do-not-use-38c803288507d86bfd04daf2f7a4b656f2c7de7b.tar.gz drakx-backup-do-not-use-38c803288507d86bfd04daf2f7a4b656f2c7de7b.tar.bz2 drakx-backup-do-not-use-38c803288507d86bfd04daf2f7a4b656f2c7de7b.tar.xz drakx-backup-do-not-use-38c803288507d86bfd04daf2f7a4b656f2c7de7b.zip |
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r-- | perl-install/install_steps_interactive.pm | 53 |
1 files changed, 28 insertions, 25 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index b50428ef5..2b207cbe3 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -497,12 +497,12 @@ wish to access and any applicable user name and password."), } my $action; - my @action = qw(ascii ps change done); + my @action = qw(ascii ps both done); my %action = ( - ascii => _("Print test ascii page"), - ps => _("Print test postscript page"), - change => _("Change printer"), - done => _("Done"), + ascii => _("Yes, print ascii page"), + ps => _("Yes, print postscript page"), + both => _("Yes, print both pages"), + done => _("No"), ); do { @@ -548,27 +548,30 @@ _("Color depth options") => { val => \$o->{printer}{BITSPERPIXEL}, type => 'list $o->{printer}{complete} = 1; install_steps::printerConfig($o); $o->{printer}{complete} = 0; - do { - $action = ${{reverse %action}}{$o->ask_from_list('', _("What do you want to do"), - [ map { $action{$_} } @action ], $action{'done'})}; - - my $pidlpd; - my $testpage = ($action eq 'ascii' && ".asc" || - $action eq 'ps' && (($o->{printer}{PAPERSIZE} eq 'a4' && "-a4") .".ps")); - $testpage = $testpage && "/usr/lib/rhs/rhs-printfilters/testpage$testpage"; - - if ($testpage) { - #- restart lpd with blank spool queue. - foreach (("/var/spool/lpd/$o->{printer}{QUEUE}/lock", "/var/spool/lpd/lpd.lock")) { - $pidlpd = (cat_("$o->{prefix}$_"))[0]; kill 'TERM', $pidlpd if $pidlpd; - unlink "$o->{prefix}$_"; - } - run_program::rooted($o->{prefix}, "lprm", "-P$o->{printer}{QUEUE}", "-"); sleep 1; - run_program::rooted($o->{prefix}, "lpd"); sleep 1; - - run_program::rooted($o->{prefix}, "lpr", "-P$o->{printer}{QUEUE}", $testpage); + + $action = ${{reverse %action}}{$o->ask_from_list('', _("Do you want to test the printer?"), + [ map { $action{$_} } @action ], $action{'done'})}; + + my $pidlpd; + my @testpages; + push @testpages, "/usr/lib/rhs/rhs-printfilters/testpage.asc" + if $action eq "ascii" || $action eq "both"; + push @testpages, "/usr/lib/rhs/rhs-printfilters/testpage". ($o->{printer}{PAPERSIZE} eq 'a4' && '-a4') .".ps" + if $action eq "ps" || $action eq "both"; + + if (@testpages) { + #- restart lpd with blank spool queue. + foreach (("/var/spool/lpd/$o->{printer}{QUEUE}/lock", "/var/spool/lpd/lpd.lock")) { + $pidlpd = (cat_("$o->{prefix}$_"))[0]; kill 'TERM', $pidlpd if $pidlpd; + unlink "$o->{prefix}$_"; } - } while ($action ne 'change' && $action ne 'done'); + run_program::rooted($o->{prefix}, "lprm", "-P$o->{printer}{QUEUE}", "-"); sleep 1; + run_program::rooted($o->{prefix}, "lpd"); sleep 1; + + run_program::rooted($o->{prefix}, "lpr", "-P$o->{printer}{QUEUE}", $_) foreach @testpages; + + $action = $o->ask_yesorno('', _("Is it correct?"), 1) ? 'done' : 'change'; + } } while ($action ne 'done'); $o->{printer}{complete} = 1; } |