summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-11-08 11:55:10 +0000
committerFrancois Pons <fpons@mandriva.com>1999-11-08 11:55:10 +0000
commit38c803288507d86bfd04daf2f7a4b656f2c7de7b (patch)
tree16f184767c0e0aace952cc78149ea6caf5f904d2 /perl-install/install_steps_interactive.pm
parenta6a2a1bf5170b9d8185dd61314c2ec6fcd29e404 (diff)
downloaddrakx-38c803288507d86bfd04daf2f7a4b656f2c7de7b.tar
drakx-38c803288507d86bfd04daf2f7a4b656f2c7de7b.tar.gz
drakx-38c803288507d86bfd04daf2f7a4b656f2c7de7b.tar.bz2
drakx-38c803288507d86bfd04daf2f7a4b656f2c7de7b.tar.xz
drakx-38c803288507d86bfd04daf2f7a4b656f2c7de7b.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm53
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;
}