summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-09-20 08:44:21 +0000
committerOlivier Blin <oblin@mandriva.org>2004-09-20 08:44:21 +0000
commitaab70c42fadc78a558f96593570f484d73b30567 (patch)
treecbbd228be4b1c71a9fd259c6c710e0a09eedc779 /perl-install/network
parent2acebc12ab367b5007df2ad565bca79eee4690ca (diff)
downloaddrakx-backup-do-not-use-aab70c42fadc78a558f96593570f484d73b30567.tar
drakx-backup-do-not-use-aab70c42fadc78a558f96593570f484d73b30567.tar.gz
drakx-backup-do-not-use-aab70c42fadc78a558f96593570f484d73b30567.tar.bz2
drakx-backup-do-not-use-aab70c42fadc78a558f96593570f484d73b30567.tar.xz
drakx-backup-do-not-use-aab70c42fadc78a558f96593570f484d73b30567.zip
more zeroconf fixes (zcip isn't a service, stop tmdns service if
zeroconf is disabled, check tmdns init file in prefix/etc)
Diffstat (limited to 'perl-install/network')
-rw-r--r--perl-install/network/network.pm12
1 files changed, 7 insertions, 5 deletions
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 48b9aa86e..50f0b6612 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -446,15 +446,17 @@ sub configureNetwork2 {
$in->do_pkgs->ensure_binary_is_installed('tmdns', 'tmdns', 'auto') if !$in->do_pkgs->is_installed('bind');
$in->do_pkgs->ensure_binary_is_installed('zcip', 'zcip', 'auto');
write_zeroconf("$etc/tmdns.conf", $netc->{ZEROCONF_HOSTNAME});
- foreach (qw(tmdns zcip)) {
- services::start_service_on_boot($_);
- services::restart($_);
- }
+ services::start_service_on_boot("tmdns");
+ services::restart("tmdns");
} else {
#- disable zeroconf
require services;
- -f "/etc/rc.d/init.d/$_" and services::do_not_start_service_on_boot($_) foreach qw(tmdns zcip);
+ #- write blank hostname so that drakconnect doesn't assume zeroconf is enabled
-f "$etc/tmdns.conf" and write_zeroconf("$etc/tmdns.conf", '');
+ if (-f "$etc/rc.d/init.d/tmdns") {
+ services::stop("tmdns");
+ services::do_not_start_service_on_boot("tmdns");
+ }
}
any { $_->{BOOTPROTO} =~ /^(pump|bootp)$/ } values %$intf and $in->do_pkgs->install('pump');
}