summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-03-03 08:47:54 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-03-03 08:47:54 +0000
commit5955beb52fe193105b1ef582f8eaac8db12686f3 (patch)
tree5299d09159419b3602937c04f725c66847c8a827 /perl-install/network/netconnect.pm
parent341342919b4cf50c946263cc90b58ff79d19b4af (diff)
downloaddrakx-5955beb52fe193105b1ef582f8eaac8db12686f3.tar
drakx-5955beb52fe193105b1ef582f8eaac8db12686f3.tar.gz
drakx-5955beb52fe193105b1ef582f8eaac8db12686f3.tar.bz2
drakx-5955beb52fe193105b1ef582f8eaac8db12686f3.tar.xz
drakx-5955beb52fe193105b1ef582f8eaac8db12686f3.zip
hide dns settings by default when using dhcp
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm15
1 files changed, 8 insertions, 7 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index b8771dc85..fa595776b 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -975,13 +975,14 @@ such as ``mybox.mylab.myco.com''.
You may also enter the IP address of the gateway if you have one.") .
N("Last but not least you can also type in your DNS server IP addresses."),
data => sub {
- [ { label => $auto_ip ? N("Host name (optional)") : N("Host name"), val => \$netc->{HOSTNAME}, advanced => $auto_ip },
- { label => N("DNS server 1"), val => \$netc->{dnsServer} },
- { label => N("DNS server 2"), val => \$netc->{dnsServer2} },
- { label => N("DNS server 3"), val => \$netc->{dnsServer3} },
- { label => N("Search domain"), val => \$netc->{DOMAINNAME},
- help => N("By default search domain will be set from the fully-qualified host name") },
- if_(!$auto_ip, { label => N("Gateway (e.g. %s)", $gateway_ex), val => \$netc->{GATEWAY} },
+ [ { label => $auto_ip ? N("Host name (optional)") : N("Host name"), val => \$netc->{HOSTNAME} },
+ if_(!$auto_ip,
+ { label => N("DNS server 1"), val => \$netc->{dnsServer} },
+ { label => N("DNS server 2"), val => \$netc->{dnsServer2} },
+ { label => N("DNS server 3"), val => \$netc->{dnsServer3} },
+ { label => N("Search domain"), val => \$netc->{DOMAINNAME},
+ help => N("By default search domain will be set from the fully-qualified host name") },
+ { label => N("Gateway (e.g. %s)", $gateway_ex), val => \$netc->{GATEWAY} },
if_(@all_cards > 1,
{ label => N("Gateway device"), val => \$netc->{GATEWAYDEV}, list => [ sort keys %eth_intf ],
format => sub { $eth_intf{$_[0]} } },