summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2001-09-19 01:05:58 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2001-09-19 01:05:58 +0000
commit73b9912206dc32b071ebc0d8cea7b343d0b17a14 (patch)
tree7b73921dc5c269877c22c4e5e805863426b179e2 /perl-install
parent569d59ce614d6e6d7048152cba35aa347eace7e5 (diff)
downloaddrakx-73b9912206dc32b071ebc0d8cea7b343d0b17a14.tar
drakx-73b9912206dc32b071ebc0d8cea7b343d0b17a14.tar.gz
drakx-73b9912206dc32b071ebc0d8cea7b343d0b17a14.tar.bz2
drakx-73b9912206dc32b071ebc0d8cea7b343d0b17a14.tar.xz
drakx-73b9912206dc32b071ebc0d8cea7b343d0b17a14.zip
Network is now only required (and checked) for remote printers.
Several buglets fixed in remote CUPS server dialog.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer.pm73
-rw-r--r--perl-install/printerdrake.pm118
2 files changed, 132 insertions, 59 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 7ad0046e9..0c84cfe4c 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -111,34 +111,34 @@ 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!";
+ || die "Could not start chown!";
} elsif ($owner) {
run_program::rooted($prefix, "/bin/chown", $owner, $file)
- || die "Could not restart chown!";
+ || die "Could not start chown!";
} elsif ($group) {
run_program::rooted($prefix, "/bin/chgrp", $group, $file)
- || die "Could not restart chgrp!";
+ || die "Could not start chgrp!";
}
run_program::rooted($prefix, "/bin/chmod", $perms, $file)
- || die "Could not restart chmod!";
+ || die "Could not start chmod!";
}
sub restart_service ($) {
my ($service) = @_;
- run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "restart")
- || die "Could not restart $service!";
+ run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "restart");
+ if (($? >> 8) != 0) {return 0;} else {return 1;}
}
sub start_service ($) {
my ($service) = @_;
- run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "start")
- || die "Could not start $service!";
+ run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "start");
+ if (($? >> 8) != 0) {return 0;} else {return 1;}
}
sub stop_service ($) {
my ($service) = @_;
- run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "stop")
- || die "Could not stop $service!";
+ run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "stop");
+ if (($? >> 8) != 0) {return 0;} else {return 1;}
}
sub service_starts_on_boot ($) {
@@ -165,28 +165,49 @@ sub start_service_on_boot ($) {
return 1;
}
-sub network_status {
- # If the network is not running or not running as configured,
- # return 0, otherwise 1.
+sub SIGHUP_daemon {
+ my ($spooler) = @_;
+ # PDQ has no daemon, exit.
+ if ($spooler eq "pdq") {return 1};
+ # CUPS needs auto-configuration
+ if ($spooler eq "cups") {
+ run_program::rooted($prefix, "/usr/sbin/setcupsconfig");
+ }
+ # Name of the daemon
+ my $daemon;
+ if (($spooler eq "lpr") || ($spooler eq "lpd") || ($spooler eq "lprng")) {
+ $daemon = "lpd";
+ } elsif ($spooler eq "cups") {
+ $daemon = "cupsd";
+ } else {
+ return 1;
+ }
+ # Send the SIGHUP
+ run_program::rooted($prefix, "/usr/bin/killall", "-HUP", $daemon);
+ # CUPS needs some time to come up.
+ if ($spooler eq "cups") {
+ sleep 5;
+ }
+ return 1;
+}
+
+sub network_running {
+ # If the network is not running return 0, otherwise 1.
local *F;
open F, ($::testing ? "$prefix" : "chroot $prefix/ ") .
- "/bin/sh -c \"export LC_ALL=C; /etc/rc.d/init.d/network status\" |" ||
- die "Could not run \"/etc/rc.d/init.d/network status\"!";
+ "/bin/sh -c \"export LC_ALL=C; /sbin/ifconfig\" |" ||
+ die "Could not run \"ifconfig\"!";
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;
- }
+ if (($_ !~ /^lo\s+/) && # The loopback device can have been started by
+ # the spooler's startup script
+ ($_ =~ /^(\S+)\s+/)) { # In this line starts an entry for a
+ # running network
+ close F;
+ return 1;
}
}
close F;
- return 1;
+ return 0;
}
sub get_security_level {
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", ...