From a57d96056493854fe2a90e1ffcaf5c3ca63248b1 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 21 Sep 2000 16:54:32 +0000 Subject: *** empty log message *** --- perl-install/network.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install/network.pm') diff --git a/perl-install/network.pm b/perl-install/network.pm index ddc601ef7..c7b88e420 100644 --- a/perl-install/network.pm +++ b/perl-install/network.pm @@ -68,10 +68,10 @@ sub write_conf { NETWORKING => "yes", FORWARD_IPV4 => "false", HOSTNAME => "localhost.localdomain", - }); + }); add2hash($netc, { DOMAINNAME => $netc->{HOSTNAME} =~ /\.(.*)/ }); - setVarsInSh($file, $netc, qw(NETWORKING FORWARD_IPV4 HOSTNAME DOMAINNAME GATEWAY GATEWAYDEV NISDOMAIN)); + setVarsInSh($file, $netc, qw(NETWORKING FORWARD_IPV4 DHCP_HOSTNAME HOSTNAME DOMAINNAME GATEWAY GATEWAYDEV NISDOMAIN)); } sub write_resolv_conf { @@ -263,12 +263,14 @@ sub configureNetwork { #- network::guessHostname($o->{prefix}, $o->{netc}, $o->{intf}); #- } if ($last->{BOOTPROTO} =~ /^(dhcp|bootp)$/) { + my $dhcp_hostname = $netc->{HOSTNAME}; $in->ask_from_entries_ref(_("Configuring network"), _("Please enter your host name if you know it. Some DHCP servers require the hostname to work. Your host name should be a fully-qualified host name, such as ``mybox.mylab.myco.com''."), [_("Host name")], [ \$netc->{HOSTNAME} ]); + $netc->{HOSTNAME} ne $dhcp_hostname and $netc->{DHCP_HOSTNAME} = $netc->{HOSTNAME}; } else { configureNetworkNet($in, $netc, $last ||= {}, @l); } -- cgit v1.2.1