summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-15 13:56:05 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-15 13:56:05 +0000
commit1d7e6ca7127994f9674168aec79d7c0dcb2f395d (patch)
tree919a9a52262db00b0c92785d43d17b0ca7c6bf63 /perl-install
parent895e0a61a6b6ee6e06cb97d5f3af015d31b2c9ad (diff)
downloaddrakx-backup-do-not-use-1d7e6ca7127994f9674168aec79d7c0dcb2f395d.tar
drakx-backup-do-not-use-1d7e6ca7127994f9674168aec79d7c0dcb2f395d.tar.gz
drakx-backup-do-not-use-1d7e6ca7127994f9674168aec79d7c0dcb2f395d.tar.bz2
drakx-backup-do-not-use-1d7e6ca7127994f9674168aec79d7c0dcb2f395d.tar.xz
drakx-backup-do-not-use-1d7e6ca7127994f9674168aec79d7c0dcb2f395d.zip
printerdrake::install_spooler() : fix heavy duplication of code
by using %spoolers data structure (function shrunked by 66%)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/data.pm34
-rw-r--r--perl-install/printer/printerdrake.pm203
2 files changed, 91 insertions, 146 deletions
diff --git a/perl-install/printer/data.pm b/perl-install/printer/data.pm
index f5230568b..26d9bf2a8 100644
--- a/perl-install/printer/data.pm
+++ b/perl-install/printer/data.pm
@@ -12,22 +12,33 @@ use vars qw(@ISA @EXPORT);
# maybe this should be swtiched :
# $lprcommand{stuff} => $spoolers{stuff}{print_command}
-our %spoolers = ('ppq' => {
+our %spoolers = ('pdq' => {
'help' => "/usr/bin/lphelp %s |",
'print_command' => 'lpr-pdq',
'long_name' => N("PDQ - Print, Don't Queue"),
'short_name' => N("PDQ"),
+ 'packages2add' => [ [ 'pdq' ], [qw(/usr/bin/pdq /usr/X11R6/bin/xpdq)] ],
'alternatives' => [
[ 'lpr', '/usr/bin/lpr-pdq' ],
[ 'lpq', '/usr/bin/lpq-foomatic' ],
[ 'lprm', '/usr/bin/lprm-foomatic' ]
- ]
+ ],
},
'lpd' => {
'help' => "/usr/bin/pdq -h -P %s 2>&1 |",
'print_command' => 'lpr',
'long_name' => N("LPD - Line Printer Daemon"),
'short_name' => N("LPD"),
+ 'boot_spooler' => 'lpd',
+ 'service' => 'lpd',
+ 'packages2add' => [ [qw(lpr net-tools gpr a2ps ImageMagick)],
+ [qw(/usr/sbin/lpf
+ /usr/sbin/lpd
+ /sbin/ifconfig
+ /usr/bin/gpr
+ /usr/bin/a2ps
+ /usr/bin/convert)] ],
+ 'packages2rm' => [ 'LPRng', '/usr/lib/filters/lpf' ],
'alternatives' => [
[ 'lpr', '/usr/bin/lpr-lpd' ],
[ 'lpq', '/usr/bin/lpq-lpd' ],
@@ -39,6 +50,16 @@ our %spoolers = ('ppq' => {
'print_command' => 'lpr-lpd',
'long_name' => N("LPRng - LPR New Generation"),
'short_name' => N("LPRng"),
+ 'boot_spooler' => 'lpd',
+ 'service' => 'lpd',
+ 'packages2add' => [ [qw(LPRng net-tools gpr a2ps ImageMagick)],
+ [qw(/usr/lib/filters/lpf
+ /usr/sbin/lpd
+ /sbin/ifconfig
+ /usr/bin/gpr
+ /usr/bin/a2ps
+ /usr/bin/convert)] ],
+ 'packages2rm' => [ 'lpr', '/usr/sbin/lpf' ],
'alternatives' => [
[ 'lpr', '/usr/bin/lpr-lpd' ],
[ 'lpq', '/usr/bin/lpq-lpd' ],
@@ -53,6 +74,15 @@ our %spoolers = ('ppq' => {
'print_command' => 'lpr-cups',
'long_name' => N("CUPS - Common Unix Printing System"),
'short_name' => N("CUPS"),
+ 'boot_spooler' => 'cups',
+ 'service' => 'cups',
+ 'packages2add' => [ ['cups', 'net-tools', 'xpp', if_($::expert, 'cups-drivers'),
+ $::isInstall ? 'curl' : 'webfetch'],
+ [ qw(/usr/lib/cups/cgi-bin/printers.cgi
+ /sbin/ifconfig
+ /usr/bin/xpp),
+ if_($::expert, "/usr/share/cups/model/postscript.ppd.gz"),
+ $::isInstall ? '/usr/bin/curl' : '/usr/bin/wget' ] ],
'alternatives' => [
[ 'lpr', '/usr/bin/lpr-cups' ],
[ 'lpq', '/usr/bin/lpq-cups' ],
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index ed96d66f7..74c2b2d9c 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -12,6 +12,7 @@ use printer::main;
use printer::services;
use printer::detect;
use printer::default;
+use printer::data;
1;
@@ -2646,6 +2647,8 @@ sub start_spooler_on_boot {
# Checks whether the spooler will be started at boot time and if not,
# ask the user whether he wants to start the spooler at boot time.
my ($printer, $in, $service) = @_;
+ # PDQ has no daemon, so nothing needs to be started :
+ return unless $service;
# Any additional dialogs caused by this subroutine should appear as
# extra windows and not embedded in the "Add printer" wizard.
@@ -2666,154 +2669,66 @@ Do you want to have the automatic starting of the printing system turned on agai
1;
}
-# FIXME: heavy duplication
sub install_spooler {
# installs the default spooler and start its daemon
my ($printer, $in, $upNetwork) = @_;
- if (!$::testing) {
- # If the user refuses to install the spooler in high or paranoid
- # security level, exit.
- return 0 unless security_check($printer, $in, $printer->{SPOOLER});
- if ($printer->{SPOOLER} eq "cups") {
- {
- my $w = $in->wait_message(N("Printerdrake"),
- N("Checking installed software..."));
- if (!$::testing &&
- !files_exist((qw(/usr/lib/cups/cgi-bin/printers.cgi
- /sbin/ifconfig
- /usr/bin/xpp),
- ($::expert ?
- "/usr/share/cups/model/postscript.ppd.gz" : ())
- ))) {
- $in->do_pkgs->install(('cups', 'net-tools', 'xpp',
- ($::expert ? 'cups-drivers' : ())));
- }
- if (!$::testing && !files_exist(qw(/usr/bin/wget /usr/bin/curl))) {
- $in->do_pkgs->install($::isInstall ? 'curl' : 'webfetch');
- }
- # Try to start the network when CUPS is the spooler, so that
- # remote CUPS printers get displayed (especially during
- # installation)
- $upNetwork and do {
- &$upNetwork();
- undef $upNetwork;
- sleep(1);
- };
- # Start daemon
- # Avoid unnecessary restarting of CUPS, this blocks the
- # startup of printerdrake for several seconds.
- printer::services::start_not_running_service("cups");
- # Set the CUPS tools as defaults for "lpr", "lpq", "lprm", ...
- foreach (@{$spoolers{cups}{alternatives}}){
- set_alternative($_->[0], $_->[1]);
- }
- # Remove PDQ panic buttons from the user's KDE Desktops
- printer::main::pdq_panic_button("remove");
- }
- # Should it be started at boot time?
- start_spooler_on_boot($printer, $in, "cups");
- } elsif ($printer->{SPOOLER} eq "lpd") {
- {
- my $w = $in->wait_message(N("Printerdrake"),
- N("Checking installed software..."));
- # "lpr" conflicts with "LPRng", remove "LPRng"
- if (!$::testing &&
- files_exist((qw(/usr/lib/filters/lpf)))) {
- my $w = $in->wait_message(N("Printerdrake"),
- N("Removing LPRng..."));
- $in->do_pkgs->remove_nodeps('LPRng');
- }
- if (!$::testing &&
- !files_exist((qw(/usr/sbin/lpf
- /usr/sbin/lpd
- /sbin/ifconfig
- /usr/bin/gpr
- /usr/bin/a2ps
- /usr/bin/convert)))) {
- $in->do_pkgs->install(('lpr', 'net-tools', 'gpr', 'a2ps', 'ImageMagick'));
- }
- # Start the network (especially during installation), so the
- # user can set up queues to remote printers.
- $upNetwork and do {
- &$upNetwork();
- undef $upNetwork;
- sleep(1);
- };
- # Start daemon
- printer::services::restart("lpd");
- # Set the LPD tools as defaults for "lpr", "lpq", "lprm", ...
- foreach (@{$spoolers{lpd}{alternatives}}){
- set_alternative($_->[0], $_->[1]);
- }
- # Remove PDQ panic buttons from the user's KDE Desktops
- printer::main::pdq_panic_button("remove");
- }
- # Should it be started at boot time?
- start_spooler_on_boot($printer, $in, "lpd");
- } elsif ($printer->{SPOOLER} eq "lprng") {
- {
- my $w = $in->wait_message(N("Printerdrake"),
- N("Checking installed software..."));
- # "LPRng" conflicts with "lpr", remove "lpr"
- if (!$::testing &&
- files_exist((qw(/usr/sbin/lpf)))) {
- my $w = $in->wait_message(N("Printerdrake"),
- N("Removing LPD..."));
- $in->do_pkgs->remove_nodeps('lpr');
- }
- if (!$::testing &&
- !files_exist((qw(/usr/lib/filters/lpf
- /usr/sbin/lpd
- /sbin/ifconfig
- /usr/bin/gpr
- /usr/bin/a2ps
- /usr/bin/convert)))) {
- $in->do_pkgs->install('LPRng', 'net-tools', 'gpr', 'a2ps', 'ImageMagick');
- }
- # Start the network (especially during installation), so the
- # user can set up queues to remote printers.
- $upNetwork and do {
- &$upNetwork();
- undef $upNetwork;
- sleep(1);
- };
- # Start daemon
- printer::services::restart("lpd");
- # Set the LPRng tools as defaults for "lpr", "lpq", "lprm", ...
- foreach (@{$spoolers{lprng}{alternatives}}){
- set_alternative($_->[0], $_->[1]);
- }
- # Remove PDQ panic buttons from the user's KDE Desktops
- printer::main::pdq_panic_button("remove");
- }
- # Should it be started at boot time?
- start_spooler_on_boot($printer, $in, "lpd");
- } elsif ($printer->{SPOOLER} eq "pdq") {
- {
- my $w = $in->wait_message(N("Printerdrake"),
- N("Checking installed software..."));
- $in->do_pkgs->install('pdq') if !$::testing && !files_exist(qw(/usr/bin/pdq /usr/X11R6/bin/xpdq));
- # Start the network (especially during installation), so the
- # user can set up queues to remote printers.
- $upNetwork and do {
- &$upNetwork();
- undef $upNetwork;
- sleep(1);
- };
- # PDQ has no daemon, so nothing needs to be started
-
- # Set the PDQ tools as defaults for "lpr", "lpq", "lprm", ...
- foreach (@{$spoolers{pdq}{alternatives}}){
- set_alternative($_->[0], $_->[1]);
- }
- # Add PDQ panic buttons to the user's KDE Desktops
- printer::main::pdq_panic_button("add");
- }
- }
- # Give a SIGHUP to the devfsd daemon to correct the permissions
- # for the /dev/... files according to the spooler
- printer::main::SIGHUP_daemon("devfs");
+ return 1 if $::testing;
+ my $spooler = $printer->{SPOOLER};
+ # If the user refuses to install the spooler in high or paranoid security level, exit.
+ return 0 unless security_check($printer, $in, $spooler);
+ return 1 if $spooler !~ /^(cups|lpd|lprng|pqd)$/; # should not happen
+ my $w = $in->wait_message(N("Printerdrake"), N("Checking installed software..."));
+
+ # "lpr" conflicts with "LPRng", remove either "LPRng" or remove "lpr"
+ my $packages = $spoolers{$spooler}{packages2rm};
+ if ($packages) {
+ $w = $in->wait_message(N("Printerdrake"), N("Removing %s ..."), $spoolers{$packages->[0]}{short_name});
+ $in->do_pkgs->remove_nodeps($packages->[0]) if !files_exist($packages->[1]);
+ }
+
+ $packages = $spoolers{$spooler}{packages2add};
+ if ($packages) {
+ $w = $in->wait_message(N("Printerdrake"), N("Installing %s ..."), $spoolers{$spooler}{short_name});
+ $in->do_pkgs->install(@{$packages->[0]}) if !files_exist(@{$packages->[1]});
+ }
+
+ undef $w;
+
+ # Start the network (especially during installation), so the
+ # user can set up queues to remote printers.
+ # (especially during installation)
+
+ $upNetwork and do {
+ &$upNetwork();
+ undef $upNetwork;
+ sleep(1);
+ };
+
+ # Start daemon
+ if ($spooler eq "cups") {
+ # Start daemon
+ # Avoid unnecessary restarting of CUPS, this blocks the
+ # startup of printerdrake for several seconds.
+ printer::services::start_not_running_service("cups");
+ } elsif ($spoolers{$spooler}{service}) {
+ printer::services::restart($spoolers{$spooler}{service}) ;
+ }
+
+ # Set the choosen spooler tools as defaults for "lpr", "lpq", "lprm", ...
+ foreach (@{$spoolers{$spooler}{alternatives}}){
+ set_alternative($_->[0], $_->[1]);
}
+ undef $w;
+
+ # Remove/add PDQ panic buttons from the user's KDE Desktops
+ printer::main::pdq_panic_button($spooler eq 'pdq' ? "add" : "remove");
+
+ # Should it be started at boot time?
+ start_spooler_on_boot($printer, $in, $spoolers{$spooler}{boot_spooler});
+
+ # Give a SIGHUP to the devfsd daemon to correct the permissions
+ # for the /dev/... files according to the spooler
+ printer::main::SIGHUP_daemon("devfs");
1;
}