summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2003-02-04 20:24:21 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2003-02-04 20:24:21 +0000
commit581917eb65b94a0a162aa01372ed9b09a29582cd (patch)
tree34397bb1433ba4ccb6790aafc6f41055f2820e01 /perl-install
parent4294244045285a6b812b9126939220ade677543e (diff)
downloaddrakx-581917eb65b94a0a162aa01372ed9b09a29582cd.tar
drakx-581917eb65b94a0a162aa01372ed9b09a29582cd.tar.gz
drakx-581917eb65b94a0a162aa01372ed9b09a29582cd.tar.bz2
drakx-581917eb65b94a0a162aa01372ed9b09a29582cd.tar.xz
drakx-581917eb65b94a0a162aa01372ed9b09a29582cd.zip
Fixed auto-detection of a configured (but not started) network.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/printerdrake.pm22
1 files changed, 15 insertions, 7 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 2389dac79..a144900a0 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -2862,6 +2862,16 @@ sub start_network {
} else { return printer::services::start("network") }
}
+sub network_configured {
+ # Do configured networks (/etc/sysconfig/network-scripts/ifcfg*) exist?
+ my @netscripts =
+ cat_("ls -1 $::prefix/etc/sysconfig/network-scripts/ |");
+ my $netconfigured = 0;
+ ( /ifcfg-/ and !/(ifcfg-lo|:|rpmsave|rpmorig|rpmnew)/ and
+ !/(~|\.bak)$/ and $netconfigured = 1) foreach @netscripts;
+ return $netconfigured;
+}
+
sub check_network {
# This routine is called whenever the user tries to configure a remote
@@ -2877,12 +2887,10 @@ sub check_network {
$in->set_help('checkNetwork') if $::isInstall;
- # First check: Does /etc/sysconfig/network-scripts/drakconnect_conf exist
- # (otherwise the network is not configured yet and drakconnect has to be
- # started)
+ # First check: Do configured networks
+ # (/etc/sysconfig/network-scripts/ifcfg*) exist?
- if (!files_exist("/etc/sysconfig/network-scripts/drakconnect_conf") &&
- !$dontconfigure) {
+ if (!$dontconfigure && !network_configured()) {
my $go_on = 0;
while (!$go_on) {
my $choice = N("Configure the network now");
@@ -2903,7 +2911,7 @@ sub check_network {
} else {
system("/usr/sbin/drakconnect");
}
- $go_on = files_exist("/etc/sysconfig/network-scripts/drakconnect_conf");
+ $go_on = network_configured();
} else {
return 1;
}
@@ -2914,7 +2922,7 @@ sub check_network {
}
# Do not try to start the network if it is not configured
- if (!files_exist("/etc/sysconfig/network-scripts/drakconnect_conf")) { return 0 }
+ if (!network_configured()) { return 0 }
# Second check: Is the network running?