From c6b7fb940ab5df0a72f35d32ebfb3e4e389ce3c9 Mon Sep 17 00:00:00 2001 From: Damien Chaumette Date: Mon, 19 Apr 2004 12:36:36 +0000 Subject: IPADDR, NETMASK and GATEWAY fields are not sensitive by default in DHCP (broken by #8498 fix) --- perl-install/standalone/drakconnect | 3 +++ 1 file changed, 3 insertions(+) (limited to 'perl-install/standalone/drakconnect') diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index fbfa347d2..0e3e964c7 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -359,6 +359,9 @@ sub build_notebook { $proto->{protocols} = { static => N("static"), dhcp => N_("DHCP") }; $proto->set_popdown_strings(@{$proto->{protocols}}{qw(dhcp static)}); $proto->set_text($proto->{protocols}{$intf->{BOOTPROTO}}); + foreach ($gui->{intf}{IPADDR}, $gui->{intf}{NETMASK}, $gui->{netc}{GATEWAY}) { + $_->set_sensitive($intf->{BOOTPROTO} eq 'static' ? 1 : 0) + }; } else { $_->set_sensitive(0) foreach $gui->{intf}{IPADDR}, $gui->{intf}{NETMASK}; delete $gui->{intf}{BOOTPROTO}; -- cgit v1.2.1