Network is now only required (and checked) for remote printers.

Several buglets fixed in remote CUPS server dialog.

1 files changed, 85 insertions, 33 deletions

diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index 092931f76..1cf829d15 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -35,6 +35,11 @@ select \"Printer on remote CUPS server\" in this case.") : ()),
 
 sub setup_remote_cups_server {
     my ($printer, $in) = @_;
+
+    # Check whether the network functionality is configured and
+    # running
+    if (!check_network($printer, $in)) {return 0};
+
     $in->set_help('configureRemoteCUPSServer') if $::isInstall;
     my $queue = $printer->{OLD_QUEUE};
     #- hack to handle cups remote server printing,
@@ -65,6 +70,8 @@ sub setup_remote_cups_server {
 		    $printer->{DEFAULT} = $default;
 		    printer::set_default_printer($printer);
 		}
+	    } else {
+		$default = $printer->{DEFAULT};
 	    }
 	    my $queue;
 	    for $queue (@queuelist) {
@@ -72,9 +79,14 @@ sub setup_remote_cups_server {
 		    $default = $queue;
 		}
 	    }
+	    # The default printer setting should not be "None" when there
+	    # are printers
+	    if ($default eq _("None")) {
+		$default = _("Choose a default printer!");
+	    }
 	} else {
-	    push(@queuelist, "None");
-	    $default = "None";
+	    push(@queuelist, _("None"));
+	    $default = _("None");
 	}
 	#- Did we have automatic or manual configuration mode for CUPS
 	$autoconf = printer::get_cups_autoconf();
@@ -144,7 +156,8 @@ CUPS afterwards (command: \"service cups restart\").") : ()),
 	    if ($default =~ /^\s*([^\s\(\)]+)\s*\(/) {
 		$default = $1;
 	    }
-	    if ($default ne "None") {
+	    if (($default ne _("None")) &&
+		($default ne _("Choose a default printer!"))) {
 		$printer->{DEFAULT} = $default;
 	        printer::set_default_printer($printer);
 	    }
@@ -278,6 +291,10 @@ complete => sub {
 sub setup_lpd {
     my ($printer, $in) = @_;
 
+    # Check whether the network functionality is configured and
+    # running
+    if (!check_network($printer, $in)) {return 0};
+
     $in->set_help('setupLPD') if $::isInstall;
     my ($uri, $remotehost, $remotequeue);
     my $queue = $printer->{OLD_QUEUE};
@@ -327,6 +344,10 @@ complete => sub {
 sub setup_smb {
     my ($printer, $in) = @_;
 
+    # Check whether the network functionality is configured and
+    # running
+    if (!check_network($printer, $in)) {return 0};
+
     $in->set_help('setupSMB') if $::isInstall;
     my ($uri, $smbuser, $smbpassword, $workgroup, $smbserver, $smbserverip, $smbshare);
     my $queue = $printer->{OLD_QUEUE};
@@ -414,6 +435,10 @@ complete => sub {
 sub setup_ncp {
     my ($printer, $in) = @_;
 
+    # Check whether the network functionality is configured and
+    # running
+    if (!check_network($printer, $in)) {return 0};
+
     $in->set_help('setupNCP') if $::isInstall;
     my ($uri, $ncpuser, $ncppassword, $ncpserver, $ncpqueue);
     my $queue = $printer->{OLD_QUEUE};
@@ -482,6 +507,11 @@ complete => sub {
 
 sub setup_socket {
     my ($printer, $in) = @_;
+
+    # Check whether the network functionality is configured and
+    # running
+    if (!check_network($printer, $in)) {return 0};
+
     $in->set_help('setupSocket') if $::isInstall;
     my ($hostname, $port, $uri, $remotehost,$remoteport);
     my $queue = $printer->{OLD_QUEUE};
@@ -556,6 +586,10 @@ complete => sub {
 }
     );
 
+    # Non-local printer, check network and abort if no network available
+    if (($printer->{currentqueue}{'connect'} !~ m!^file:/!) &&
+        (!check_network($printer, $in))) {return 0};
+
     # If the chosen protocol needs additional software, install it.
 
     # LPD does not support filtered queues to a remote LPD server by itself
@@ -1400,18 +1434,25 @@ new printing system %s?", $oldqueue, $newspoolerstr), 1))) {
     }
 }
 
+sub start_network {
+    my $in = $_[0];
+    my $w = $in->wait_message(_("Configuration of a remote printer"), 
+			      _("Starting network ..."));
+    return printer::start_service("network");
+}
+
 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.
+
+    # This routine is called whenever the user tries to configure a remote
+    # printer. It checks the state of the network functionality to assure
+    # that the network is up and running so that the remote printer is
+    # reachable.
 
     my ($printer, $in) = @_;
+
     $in->set_help('checkNetwork') if $::isInstall;
-    if ((!$printer->{SPOOLER}) || ($printer->{SPOOLER} eq "pdq")) {
-	return 1;
-    }
 
-    # First Check: Does /etc/sysconfig/network-scripts/draknet_conf exist
+    # First check: Does /etc/sysconfig/network-scripts/draknet_conf exist
     # (otherwise the network is not configured yet and draknet has to be
     # started)
 
@@ -1420,15 +1461,11 @@ sub check_network {
 	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}}),
+			      _("You are going to configure a remote printer. This needs working
+network access, but your network is not configured yet. If you
+go on without network configuration, you will not be able to
+use the printer which you are configuring now. How do you want 
+to proceed?"),
 			      [ { val => \$choice, type => 'list',
 				  list => [ _("Configure the network now"),
 					    _("Go on without configuring the network") ]} ] )) {
@@ -1455,14 +1492,38 @@ can set up local printers usable from your local machine. How do
 	    }
 	}
     }
-    # 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");
+    # Second check: Is the network running?
+
+    if (printer::network_running()) {return 1;}
+
+    # The network is configured now, start it.
+    if (!start_network($in)) {
+	$in->ask_warn(_("Configuration of a remote printer"), 
+($::isInstall ?
+_("The network configuration done during the installation 
+cannot be started now. Please check whether the network
+gets accessable after booting your system and correct the
+configuration using the Mandrake Control Center, section
+\"Network & Internet\"/\"Connection\", and afterwards set
+up the printer, also using the Mandrake Control Center,
+section \"Hardware\"/\"Printer\"") :
+_("The network access was not running and could not be 
+started. Please check your configuration and your 
+hardware. Then try to configure your remote printer
+again.")));
+	return 0;
     }
 
-    1;
+    # Give a SIGHUP to the daemon and in case of CUPS do also the
+    # automatic configuration of broadcasting/access permissions
+    # The daemon is not really restarted but only SIGHUPped to not
+    # interrupt print jobs.
+
+    my $w = $in->wait_message(_("Configuration of a remote printer"), 
+			      _("Restarting printing system ..."));
+    return printer::SIGHUP_daemon($printer->{SPOOLER});
+
 }
 
 sub security_check {
@@ -1572,9 +1633,6 @@ 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");
 		# Set the CUPS tools as defaults for "lpr", "lpq", "lprm", ...
@@ -1605,9 +1663,6 @@ 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");
 		# Set the LPD tools as defaults for "lpr", "lpq", "lprm", ...
@@ -1635,9 +1690,6 @@ 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");
 		# Set the LPRng tools as defaults for "lpr", "lpq", "lprm", ...