summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-03-07 13:10:06 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-03-07 13:10:06 +0000
commitcc812497f536d469ba7fe0322c20396ea103e6bb (patch)
treef10538d7533763fdd1284ca7d94f26cd86ff0a78 /perl-install/standalone
parentdf8db12c969d5f0994e65e3afd5c709a31f76526 (diff)
downloaddrakx-backup-do-not-use-cc812497f536d469ba7fe0322c20396ea103e6bb.tar
drakx-backup-do-not-use-cc812497f536d469ba7fe0322c20396ea103e6bb.tar.gz
drakx-backup-do-not-use-cc812497f536d469ba7fe0322c20396ea103e6bb.tar.bz2
drakx-backup-do-not-use-cc812497f536d469ba7fe0322c20396ea103e6bb.tar.xz
drakx-backup-do-not-use-cc812497f536d469ba7fe0322c20396ea103e6bb.zip
- call net_monitor to disable internet
connection before network-restart - user return value when status'ing the initscripts rather than grepping their text output
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakgw26
1 files changed, 21 insertions, 5 deletions
diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw
index 9de8ea10c..5252ef10d 100755
--- a/perl-install/standalone/drakgw
+++ b/perl-install/standalone/drakgw
@@ -78,14 +78,23 @@ sub start_daemons ()
my $cups_used = 0;
standalone::explanations("Starting daemons");
if (-f "/etc/rc.d/init.d/cups") {
- if (grep(/is running/, `/etc/rc.d/init.d/cups status`)) {
+ if (system("/etc/rc.d/init.d/cups status >/dev/null") == 0) {
$cups_used = 1;
sys("/etc/rc.d/init.d/cups stop");
}
}
- grep(/is running/, `/etc/rc.d/init.d/dhcpd status 2> /dev/null`) and sys("/etc/rc.d/init.d/dhcpd stop");
- grep(/connection refused/, `/etc/rc.d/init.d/named status 2> /dev/null`) or sys("/etc/rc.d/init.d/named stop");
+ system("/etc/rc.d/init.d/dhcpd status >/dev/null") == 0 and sys("/etc/rc.d/init.d/dhcpd stop");
+ system("/etc/rc.d/init.d/named status >/dev/null 2>/dev/null") == 0 and sys("/etc/rc.d/init.d/named stop");
+
+ my $netmon = '/usr/sbin/net_monitor';
+ my $netmon_need_start;
+ if (-x $netmon && `$netmon --status` eq 1) {
+ $netmon_need_start = 1;
+ system("$netmon --disconnect --force --quiet >/dev/null");
+ }
sys("/etc/rc.d/init.d/network restart");
+ $netmon_need_start and system("$netmon --connect --force --quiet >/dev/null");
+
sys("sh $rc_firewall_generic");
sys("/etc/rc.d/init.d/$_ start"), sys("/sbin/chkconfig --level 345 $_ on") foreach 'named', 'dhcpd';
@@ -97,8 +106,8 @@ sub start_daemons ()
sub stop_daemons ()
{
standalone::explanations("Stopping daemons");
- grep /is running/, `/etc/rc.d/init.d/dhcpd status` and sys("/etc/rc.d/init.d/dhcpd stop");
- grep /Connection refused/, `/etc/rc.d/init.d/named status 2>&1` or sys("/etc/rc.d/init.d/named stop");
+ system("/etc/rc.d/init.d/dhcpd status >/dev/null") == 0 and sys("/etc/rc.d/init.d/dhcpd stop");
+ system("/etc/rc.d/init.d/named status >/dev/null 2>/dev/null") == 0 and sys("/etc/rc.d/init.d/named stop");
if ($kernel_version eq "2.2") {
sys("/sbin/ipchains -F");
} else {
@@ -725,6 +734,13 @@ Click on Configure to launch the setup wizard.", $setup_state));
#-------------------------------------------------
#- $Log$
+#- Revision 1.60 2002/03/07 13:10:06 gc
+#- - call net_monitor to disable internet
+#- connection before network-restart
+#- - user return value when status'ing the
+#- initscripts rather than grepping their
+#- text output
+#-
#- Revision 1.59 2002/02/22 18:58:22 gc
#- exit the pur_gtk version after launching the wizard version
#-