summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-01-13 09:01:31 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-01-13 09:01:31 +0000
commit07bdf9c75e71c1ac3530894ba9490309f642086c (patch)
treeec5c59aacd44e7cf705a829c2263ae18847de2f5 /perl-install
parent8ace139532ce4f5d8cba9e1533aeb2db2180a6cb (diff)
downloaddrakx-07bdf9c75e71c1ac3530894ba9490309f642086c.tar
drakx-07bdf9c75e71c1ac3530894ba9490309f642086c.tar.gz
drakx-07bdf9c75e71c1ac3530894ba9490309f642086c.tar.bz2
drakx-07bdf9c75e71c1ac3530894ba9490309f642086c.tar.xz
drakx-07bdf9c75e71c1ac3530894ba9490309f642086c.zip
print_testpages() : factorize and simplify options managment
by using an options hash
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/printerdrake.pm92
1 files changed, 26 insertions, 66 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index bca7ae3ff..af8ed1c76 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -2189,17 +2189,9 @@ sub print_testpages {
my ($printer, $in, $upNetwork) = @_;
$in->set_help('printTestPages') if $::isInstall;
# print test pages
- my $standard = 1;
- my $altletter = 0;
- my $alta4 = 0;
- my $photo = 0;
- my $ascii = 0;
my $res2 = 0;
- my $oldstandard = 1;
- my $oldaltletter = 0;
- my $oldalta4 = 0;
- my $oldphoto = 0;
- my $oldascii = 0;
+ my %options = (alta4 => 0, altletter => 0, ascii => 0, photo => 0, standard => 1);
+ my %old_options = (alta4 => 0, altletter => 0, ascii => 0, photo => 0, standard => 1);
my $oldres2 = 0;
my $res1 = $in->ask_from_(
{ title => N("Test pages"),
@@ -2213,74 +2205,42 @@ Note: the photo test page can take a rather long time to get printed and on lase
changed => sub {
if ($oldres2 ne $res2) {
if ($res2) {
- $standard = 0;
- $altletter = 0;
- $alta4 = 0;
- $photo = 0;
- $ascii = 0;
- $oldstandard = 0;
- $oldaltletter = 0;
- $oldalta4 = 0;
- $oldphoto = 0;
- $oldascii = 0;
+ foreach my $opt (keys %options) {
+ $options{$opt} = 0;
+ $old_options{$opt} = 0;
+ }
}
$oldres2 = $res2;
}
- if ($oldstandard ne $standard) {
- if ($standard) {
- $res2 = 0;
- $oldres2 = 0;
- }
- $oldstandard = $standard;
- }
- if ($oldaltletter ne $altletter) {
- if ($altletter) {
- $res2 = 0;
- $oldres2 = 0;
- }
- $oldaltletter = $altletter;
- }
- if ($oldalta4 ne $alta4) {
- if ($alta4) {
- $res2 = 0;
- $oldres2 = 0;
- }
- $oldalta4 = $alta4;
- }
- if ($oldphoto ne $photo) {
- if ($photo) {
- $res2 = 0;
- $oldres2 = 0;
- }
- $oldphoto = $photo;
- }
- if ($oldascii ne $ascii) {
- if ($ascii) {
- $res2 = 0;
- $oldres2 = 0;
- }
- $oldascii = $ascii;
+ foreach my $opt (keys %options) {
+ if ($old_options{$opt} ne $options{$opt}) {
+ if ($options{$opt}) {
+ $res2 = 0;
+ $oldres2 = 0;
+ }
+ $old_options{standard} = $options{standard};
+ }
}
return 0;
}
} },
[
{ text => N("Standard test page"), type => 'bool',
- val => \$standard },
+ val => \$options{standard} },
if_($::expert,
{ text => N("Alternative test page (Letter)"), type => 'bool',
- val => \$altletter }),
+ val => \$options{altletter} }),
if_($::expert,
{ text => N("Alternative test page (A4)"), type => 'bool',
- val => \$alta4 }),
- { text => N("Photo test page"), type => 'bool', val => \$photo },
+ val => \$options{alta4} }),
+ { text => N("Photo test page"), type => 'bool', val => \$options{photo} },
#{ text => N("Plain text test page"), type => 'bool',
- # val => \$ascii }
+ # val => \$options{ascii} }
if_($::isWizard,
{ text => N("Do not print any test page"), type => 'bool',
val => \$res2 })
]);
- $res2 = 1 if !($standard || $altletter || $alta4 || $photo || $ascii);
+ $res2 = 1 if !($options{standard} || $options{altletter} || $options{alta4} || $options{photo} || $options{ascii});
if ($res1 && !$res2) {
my @lpq_output;
{
@@ -2295,16 +2255,16 @@ Note: the photo test page can take a rather long time to get printed and on lase
my $asciitestpage = "/usr/share/printer-testpages/testpage.asc";
my @testpages;
# Install the filter to convert the photo test page to PS
- if ($printer->{SPOOLER} ne "cups" && $photo && !$::testing &&
+ if ($printer->{SPOOLER} ne "cups" && $options{photo} && !$::testing &&
!files_exist('/usr/bin/convert')) {
$in->do_pkgs->install('ImageMagick');
}
# set up list of pages to print
- $standard && push @testpages, $stdtestpage;
- $altletter && push @testpages, $altlttestpage;
- $alta4 && push @testpages, $alta4testpage;
- $photo && push @testpages, $phototestpage;
- $ascii && push @testpages, $asciitestpage;
+ $options{standard} && push @testpages, $stdtestpage;
+ $options{altletter} && push @testpages, $altlttestpage;
+ $options{alta4} && push @testpages, $alta4testpage;
+ $options{photo} && push @testpages, $phototestpage;
+ $options{ascii} && push @testpages, $asciitestpage;
# print the stuff
@lpq_output = printer::main::print_pages($printer, @testpages);
}