summaryrefslogtreecommitdiffstats
path: root/perl-install/network/network.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network/network.pm')
-rw-r--r--perl-install/network/network.pm9
1 files changed, 9 insertions, 0 deletions
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index cd8234fb9..ad2a78be0 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -73,6 +73,13 @@ sub write_conf {
setVarsInSh($file, $netc, if_(!$netc->{DHCP}, 'HOSTNAME'), qw(NETWORKING FORWARD_IPV4 DOMAINNAME GATEWAY GATEWAYDEV NISDOMAIN));
}
+sub write_zeroconf {
+ my ($file, $netc);
+ my %zeroconf_file = getVarsFromSh($file) or die "cannot open file $file: $!";
+ $zeroconf_file{hostname} = $netc->{ZEROCONF_HOSTNAME};
+ setVarsInSh($file, %zeroconf_file);
+}
+
sub write_resolv_conf {
my ($file, $netc) = @_;
@@ -501,6 +508,8 @@ sub configureNetwork2 {
$in->do_pkgs->install('pump');
}
#-res_init(); #- reinit the resolver so DNS changes take affect
+
+ write_zeroconf('/etc/tmdns.conf', $netc) if $netc->{ZEROCONF_HOSTNAME};
proxy_configure($::o->{miscellaneous});
}