From abc56d7d600dba98589d4bc5f2ed913c27062b82 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 23 Mar 2001 17:19:49 +0000 Subject: (configureNetworkIntf): gray "IP address" and "Netmask" in DHCP/BOOTP --- perl-install/network.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/network.pm b/perl-install/network.pm index 17b3a616c..2ee47426e 100644 --- a/perl-install/network.pm +++ b/perl-install/network.pm @@ -317,8 +317,8 @@ notation (for example, 1.2.3.4)."); $in->ask_from_entries_refH(_("Configuring network device %s", $intf->{DEVICE}), (_("Configuring network device %s", $intf->{DEVICE}) . ( $module ? _(" (driver $module)") : '' ) ."\n\n") . $text, - [ { label => _("IP address"), val => \$intf->{IPADDR} }, - { label => _("Netmask"), val => \$intf->{NETMASK} }, + [ { label => _("IP address"), val => \$intf->{IPADDR}, disabled => sub { $pump } }, + { label => _("Netmask"), val => \$intf->{NETMASK}, disabled => sub { $pump } }, { label => _("Automatic IP"), val => \$pump, type => "bool", text => _("(bootp/dhcp)") }, if_($intf->{wireless_eth}, { label => "WIRELESS_MODE", val => \$intf->{WIRELESS_MODE}, list => [ "Ad-hoc", "Managed", "Master", "Repeater", "Secondary", "Auto"] }, -- cgit v1.2.1