diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/printer.pm | 86 | ||||
| -rw-r--r-- | perl-install/printerdrake.pm | 301 |
2 files changed, 346 insertions, 41 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm index 0d4871529..aba21b392 100644 --- a/perl-install/printer.pm +++ b/perl-install/printer.pm @@ -50,12 +50,21 @@ my $FOOMATIC_DEFAULT_SPOOLER = "$FOOMATICCONFDIR/defaultspooler"; %printer_type_inv = reverse %printer_type; #------------------------------------------------------------------------------ + sub set_prefix($) { $prefix = $_[0]; } sub default_printer_type($) { "LOCAL" } + sub spooler { - return @spooler_inv{qw(cups lpd lprng pdq)}; + # LPD is taken from the menu for the moment because the classic LPD is + # highly unsecure. Depending on how the GNU lpr development is going on + # LPD support can be reactivated by uncommenting the line which is + # commented out now. + + #return @spooler_inv{qw(cups lpd lprng pdq)}; + return @spooler_inv{qw(cups lprng pdq)}; } + sub printer_type($) { my ($printer) = @_; for ($printer->{SPOOLER}) { @@ -98,6 +107,22 @@ sub set_default_spooler ($) { close DEFSPOOL; } +sub set_permissions { + my ($file, $perms, $owner, $group) = @_; + if ($owner && $group) { + run_program::rooted($prefix, "/bin/chown", "$owner.$group", $file) + || die "Could not restart chown!"; + } elsif ($owner) { + run_program::rooted($prefix, "/bin/chown", $owner, $file) + || die "Could not restart chown!"; + } elsif ($group) { + run_program::rooted($prefix, "/bin/chgrp", $group, $file) + || die "Could not restart chgrp!"; + } + run_program::rooted($prefix, "/bin/chmod", $perms, $file) + || die "Could not restart chmod!"; +} + sub restart_service ($) { my ($service) = @_; run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "restart") @@ -116,6 +141,53 @@ sub stop_service ($) { || die "Could not stop $service!"; } +sub service_starts_on_boot ($) { + my ($service) = @_; + local *F; + open F, ($::testing ? "$prefix" : "chroot $prefix/ ") . + "/sbin/chkconfig --list $service 2>&1 |" || + die "Could not run chkconfig!"; + while (<F>) { + chomp; + if ($_ =~ /:on/) { + close F; + return 1; + } + } + close F; + return 0; +} + +sub start_service_on_boot ($) { + my ($service) = @_; + run_program::rooted($prefix, "/sbin/chkconfig", "--add", $service) + || die "Could not start chkconfig!"; +} + +sub network_status { + # If the network is not running or not running as configured, + # return 0, otherwise 1. + local *F; + open F, ($::testing ? "$prefix" : "chroot $prefix/ ") . + "/etc/rc.d/init.d/network status |" || + die "Could not run \"/etc/rc.d/init.d/network status\"!"; + while(<F>) { + if (($_ =~ /Devices.*down/) || # Are there configured devices which + # are down + ($_ =~ /Devices.*modified/)) { # Configured devices which are not + # running as configured + my $devices = <F>; + chomp $devices; + if ($devices !~ /^\s*$/) { # Blank line + close F; + return 0; + } + } + } + close F; + return 1; +} + sub files_exist { my @files = @_; for (@files) { @@ -378,7 +450,9 @@ sub read_foomatic_options ($) { "foomatic-configure -P -p $printer->{currentqueue}{'printer'}" . " -d $printer->{currentqueue}{'driver'}" . ($printer->{OLD_QUEUE} ? - " -s $printer->{SPOOLER} -n $printer->{OLD_QUEUE}" : "") + " -s $printer->{SPOOLER} -n $printer->{OLD_QUEUE}" : "") . + ($printer->{SPECIAL_OPTIONS} ? + " $printer->{SPECIAL_OPTIONS}" : "") . " |" || die "Could not run foomatic-configure"; eval (join('',(<F>))); @@ -812,6 +886,14 @@ sub configure_queue($) { setVarsInSh($f, \%usb); } + # Open permissions for device file when PDQ is chosen as spooler + # so normal users can print. + if ($printer->{SPOOLER} eq 'pdq') { + if ($printer->{currentqueue}{'connect'} =~ m!^\s*file:(\S*)\s*$!) { + set_permissions($1,"666"); + } + } + # Make a new printer entry in the $printer structure $printer->{configured}{$printer->{currentqueue}{'queue'}}{'queuedata'}= $printer->{currentqueue}; diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm index 3443ff08b..66037c14c 100644 --- a/perl-install/printerdrake.pm +++ b/perl-install/printerdrake.pm @@ -747,7 +747,7 @@ sub choose_model { } sub get_printer_info { - my ($printer) = @_; + my ($printer, $in) = @_; #- Read the printer driver database if necessary #if ((keys %printer::thedb) == 0) { # my $w = $in->wait_message('', _("Reading printer database ...")); @@ -786,7 +786,128 @@ sub get_printer_info { } } else { # The queue was not configured with Foomatic before + # Set some special options + $printer->{SPECIAL_OPTIONS} = ''; + # Default page size depending on the country/language + # (US/Canada -> Letter, Others -> A4) + my $pagesize; + if ($printer->{PAPERSIZE}) { + $printer->{SPECIAL_OPTIONS} .= + " -o PageSize=$printer->{PAPERSIZE}"; + } elsif (($pagesize = $ENV{'LC_PAPER'}) || + ($pagesize = $ENV{'LANG'}) || + ($pagesize = $ENV{'LC_ALL'})) { + if (($pagesize eq 'en') || ($pagesize eq 'en_US')) { + $pagesize = "Letter"; + } else { + $pagesize = "A4"; + } + $printer->{SPECIAL_OPTIONS} .= + " -o PageSize=$pagesize"; + } + # oki4w driver -> OKI winprinter which needs the + # oki4daemon to work + if ($printer->{currentqueue}{'driver'} eq 'oki4w') { + if ($printer->{currentqueue}{'connect'} ne + 'file:/dev/lp0') { + $in->ask_warn(_("OKI winprinter configuration"), + _("You are configuring an OKI laser winprinter. These printers +use a very special communication protocol and therefore they +work only when connected to the first parallel port. When +your printer is connected to another port or to a print +server box please connect the printer to the first parallel +port before you print a test page. Otherwise the printer +will not work. Your connection type setting will be ignored +by the driver.")); + } + $printer->{currentqueue}{'connect'} = 'file:/dev/null'; + # Start the oki4daemon + printer::start_service_on_boot('oki4daemon'); + printer::start_service('oki4daemon'); + # Set permissions + if ($printer->{SPOOLER} eq 'cups') { + printer::set_permissions('/dev/oki4drv', '660', 'lp', + 'sys'); + } elsif ($printer->{SPOOLER} eq 'pdq') { + printer::set_permissions('/dev/oki4drv', '666'); + } else { + printer::set_permissions('/dev/oki4drv', '660', 'lp', + 'lp'); + } + } elsif ($printer->{currentqueue}{'driver'} eq 'lexmarkinkjet') { + # Set "Port" option + if ($printer->{currentqueue}{'connect'} eq + 'file:/dev/lp0') { + $printer->{SPECIAL_OPTIONS} .= + " -o Port=ParPort1"; + } elsif ($printer->{currentqueue}{'connect'} eq + 'file:/dev/lp1') { + $printer->{SPECIAL_OPTIONS} .= + " -o Port=ParPort2"; + } elsif ($printer->{currentqueue}{'connect'} eq + 'file:/dev/lp2') { + $printer->{SPECIAL_OPTIONS} .= + " -o Port=ParPort3"; + } elsif ($printer->{currentqueue}{'connect'} eq + 'file:/dev/usb/lp0') { + $printer->{SPECIAL_OPTIONS} .= + " -o Port=USB1"; + } elsif ($printer->{currentqueue}{'connect'} eq + 'file:/dev/usb/lp1') { + $printer->{SPECIAL_OPTIONS} .= + " -o Port=USB2"; + } elsif ($printer->{currentqueue}{'connect'} eq + 'file:/dev/usb/lp2') { + $printer->{SPECIAL_OPTIONS} .= + " -o Port=USB3"; + } else { + $in->ask_warn(_("Lexmark inkjet configuration"), + _("The inkjet printer drivers provided by Lexmark only support +local printers, no printers on remote machines or print server +boxes. Please connect your printer to a local port or +configure it on the machine where it is connected to.")); + return 0; + } + # Set device permissions + $printer->{currentqueue}{'connect'} =~ /^\s*file:(\S*)\s*$/; + if ($printer->{SPOOLER} eq 'cups') { + printer::set_permissions($1, '660', 'lp', 'sys'); + } elsif ($printer->{SPOOLER} eq 'pdq') { + printer::set_permissions($1, '666'); + } else { + printer::set_permissions($1, '660', 'lp', 'lp'); + } + # This is needed to have the device not blocked by the + # spooler backend. + $printer->{currentqueue}{'connect'} = 'file:/dev/null'; + #install packages + my $drivertype = $printer->{currentqueue}{'model'}; + if ($drivertype eq 'Z22') {$drivertype = 'Z32';} + if ($drivertype eq 'Z23') {$drivertype = 'Z33';} + $drivertype = lc($drivertype); + if (!printer::files_exist("/usr/local/lexmark/$drivertype/$drivertype")) { + $in->do_pkgs->install("lexmark-drivers-$drivertype"); + } + if (!printer::files_exist("/usr/local/lexmark/$drivertype/$drivertype")) { + # Driver installation failed, probably we do not have + # the commercial CDs + $in->ask_warn(_("Lexmark inkjet configuration"), + _("To be able to print with your Lexmark inkjet and this +configuration, you need the inkjet printer drivers +provided by Lexmark (http://www.lexmark.com/). Go to +the US site and click on the \"Drivers\" button. Then +choose your model and afterwards \"Linux\" as +operating system. The drivers come as RPM packages +or shell scripts with interactive graphical installation. +You do not need to do this configuration by the +graphical frontends. Cancel directly after the license +agreement. Then print printhead alignment pages with +\"lexmarkmaintain\" and adjust the head alignment +settings with this program.")); + } + } $printer->{ARGS} = printer::read_foomatic_options($printer); + delete($printer->{SPECIAL_OPTIONS}); } } elsif ($printer->{currentqueue}{'ppd'}) { # CUPS+PPD queue? # If we had a Foomatic queue before, unmark the flag and initialize @@ -811,6 +932,7 @@ sub get_printer_info { } } } + 1; } sub setup_options { @@ -1162,34 +1284,90 @@ new printing system %s?", $oldqueue, $newspoolerstr), 1))) { } } -sub setup_default_spooler { +sub check_network { + # CUPS, LPD, and LPRng need at least basic network functionality to + # work. Here we check the state of the network to assure that the + # chosen spooler will work. + my ($printer, $in) = @_; - $printer->{SPOOLER} ||= 'cups'; - my $oldspooler = $printer->{SPOOLER}; - my $str_spooler = - $in->ask_from_list_(_("Select Printer Spooler"), - _("Which printing system (spooler) do you want to use?"), - [ printer::spooler() ], - $printer::spooler_inv{$printer->{SPOOLER}}, - ) or return; - $printer->{SPOOLER} = $printer::spooler{$str_spooler}; - # Install the spooler if not done yet - install_spooler($printer, $in); - if ($printer->{SPOOLER} ne $oldspooler) { - # Get the queues of this spooler - { - my $w = $in->wait_message('', _("Reading printer data ...")); - printer::read_configured_queues($printer); + if ((!$printer->{SPOOLER}) || ($printer->{SPOOLER} eq "pdq")) { + return 1; + } + + # First Check: Does /etc/sysconfig/network-scripts/draknet_conf exist + # (otherwise the network is not configured yet and draknet has to be + # started) + + if (!printer::files_exist("/etc/sysconfig/network-scripts/draknet_conf")) { + my $go_on = 0; + while (!$go_on) { + my $choice = _("Configure the network now"); + if ($in->ask_from(_("Network functionality not configured"), + _("The printing system which you are going to use (%s) needs basic +network functionality, but your network functionality is not +configured yet. If you go on without network configuration, your +printing system will set up a network only consisting of the +local machine which does not allow the usage of remote printers +or the sharing of a local printer with remote clients, but you +can set up local printers usable from your local machine. How do + you want to proceed?", + $printer::shortspooler_inv{$printer->{SPOOLER}}), + [ { val => \$choice, type => 'list', + list => [ _("Configure the network now"), + _("Go on without configuring the network") ]} ] )) { + if ($choice eq _("Configure the network now")){ + if ($::isInstall) { + require network::netconnect; + network::netconnect::main + ($in->{prefix}, $in->{netcnx} ||= {}, + $in->{netc}, $in->{mouse}, $in, + $in->{intf}, 0, + $in->{lang} eq "fr_FR" && + $in->{keyboard} eq "fr", 0); + } else { + system("/usr/sbin/draknet"); + } + if (printer::files_exist("/etc/sysconfig/network-scripts/draknet_conf")) { + $go_on = 1; + } + } else { + return 1; + } + } else { + return 0; + } } - # Copy queues from former spooler - copy_queues_from($printer, $in, $oldspooler); - # Re-read the printer database (CUPS has additional drivers, PDQ - # has no raw queue) - %printer::thedb = (); - #my $w = $in->wait_message('', _("Reading printer database ...")); - #printer::read_printer_db($printer->{SPOOLER}); } - return $printer->{SPOOLER}; + # Second check: The network is configured now, check whether it is up + # and running and if not, start it. + + if (!printer::network_status()) { + printer::restart_service("network"); + } + + 1; +} + +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) = @_; + if (!printer::service_starts_on_boot($service)) { + if ($in->ask_yesorno(_("Starting the printing system at boot time"), + _("The printing system (%s) will not be started automatically +when the machine is booted. + +It is possible that the automatic starting was turned off +by changing to a higher security level, because the printing +system is a potential point for attacks. + +Do you want to have the automatic starting of the printing +system turned on again?", + $printer::shortspooler_inv{$printer->{SPOOLER}})), 1) { + printer::start_service_on_boot($service); + } + } + 1; } sub install_spooler { @@ -1211,9 +1389,13 @@ sub install_spooler { if_($in->do_pkgs->is_installed('kdebase'), 'kups'), ($::expert ? 'cups-drivers' : ()))); } + # Check whether the network functionality is configured and + # running + if (!check_network($printer, $in)) {return 0}; # Start daemon printer::start_service("cups"); - #sleep 1; + # Should it be started at boot time? + start_spooler_on_boot($printer, $in, "cups"); } elsif ($printer->{SPOOLER} eq "lpd") { # "lpr" conflicts with "LPRng", remove "LPRng" if ((!$::testing) && @@ -1227,9 +1409,13 @@ sub install_spooler { /sbin/ifconfig))))) { $in->do_pkgs->install(('lpr', 'net-tools')); } + # Check whether the network functionality is configured and + # running + if (!check_network($printer, $in)) {return 0}; # Start daemon printer::restart_service("lpd"); - #sleep 1; + # Should it be started at boot time? + start_spooler_on_boot($printer, $in, "lpd"); } elsif ($printer->{SPOOLER} eq "lprng") { # "LPRng" conflicts with "lpr", remove "lpr" if ((!$::testing) && @@ -1243,9 +1429,13 @@ sub install_spooler { /sbin/ifconfig))))) { $in->do_pkgs->install('LPRng', 'net-tools'); } + # Check whether the network functionality is configured and + # running + if (!check_network($printer, $in)) {return 0}; # Start daemon printer::restart_service("lpd"); - #sleep 1; + # Should it be started at boot time? + start_spooler_on_boot($printer, $in, "lpd"); } elsif ($printer->{SPOOLER} eq "pdq") { if ((!$::testing) && (!printer::files_exist((qw(/usr/bin/pdq @@ -1255,6 +1445,40 @@ sub install_spooler { # PDQ has no daemon, so nothing needs to be started } } + 1; +} + +sub setup_default_spooler { + my ($printer, $in) = @_; + $printer->{SPOOLER} ||= 'cups'; + my $oldspooler = $printer->{SPOOLER}; + my $str_spooler = + $in->ask_from_list_(_("Select Printer Spooler"), + _("Which printing system (spooler) do you want to use?"), + [ printer::spooler() ], + $printer::spooler_inv{$printer->{SPOOLER}}, + ) or return; + $printer->{SPOOLER} = $printer::spooler{$str_spooler}; + # Install the spooler if not done yet + if (!install_spooler($printer, $in)) { + $printer->{SPOOLER} = $oldspooler; + return; + } + if ($printer->{SPOOLER} ne $oldspooler) { + # Get the queues of this spooler + { + my $w = $in->wait_message('', _("Reading printer data ...")); + printer::read_configured_queues($printer); + } + # Copy queues from former spooler + copy_queues_from($printer, $in, $oldspooler); + # Re-read the printer database (CUPS has additional drivers, PDQ + # has no raw queue) + %printer::thedb = (); + #my $w = $in->wait_message('', _("Reading printer database ...")); + #printer::read_printer_db($printer->{SPOOLER}); + } + return $printer->{SPOOLER}; } sub configure_queue { @@ -1266,7 +1490,7 @@ sub configure_queue { $printer->{complete} = 0; } -#- Program entry point for configuration with of the printing system. +#- Program entry point for configuration of the printing system. sub main { my ($printer, $in, $ask_multiple_printer, $upNetwork) = @_; @@ -1297,7 +1521,7 @@ sub main { # If we have chosen a spooler, install it. if (($printer->{SPOOLER}) && ($printer->{SPOOLER} ne '')) { - install_spooler($printer, $in); + if (!install_spooler($printer, $in)) {return;} } } @@ -1468,7 +1692,7 @@ sub main { choose_printer_name($printer, $in) or next; get_db_entry($printer, $in); choose_model($printer, $in) or next; - get_printer_info($printer); + get_printer_info($printer, $in) or next; setup_options($printer, $in) or next; configure_queue($printer, $in); setasdefault($printer, $in); @@ -1559,15 +1783,14 @@ What do you want to modify on this printer?", } elsif (($modify eq _("Printer manufacturer, model, driver")) || ($modify eq _("Printer manufacturer, model"))) { get_db_entry($printer, $in); - choose_model($printer, $in) && do { - get_printer_info($printer); + choose_model($printer, $in) && + get_printer_info($printer, $in) && + setup_options($printer, $in) && + configure_queue($printer, $in); + } elsif ($modify eq _("Printer options")) { + get_printer_info($printer, $in) && setup_options($printer, $in) && configure_queue($printer, $in); - } - } elsif ($modify eq _("Printer options")) { - get_printer_info($printer); - setup_options($printer, $in) && - configure_queue($printer, $in); } elsif ($modify eq _("Set this printer as the default")) { $printer->{DEFAULT} = $queue; printer::set_default_printer($printer); |