diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/printer/printerdrake.pm | 22 |
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? |