From e0ec77fdf3ff939f17fcc8f1a00623ac5a6de7e1 Mon Sep 17 00:00:00 2001 From: damien Date: Tue, 12 Mar 2002 20:45:20 +0000 Subject: corrected domainname bug; added onboot option --- perl-install/network/network.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm index 37b20b40b..c4ecba911 100644 --- a/perl-install/network/network.pm +++ b/perl-install/network/network.pm @@ -68,7 +68,7 @@ sub write_conf { my ($file, $netc) = @_; if ($netc->{HOSTNAME}) { - $netc->{HOSTNAME} =~ /^[^\.]\.(.*)$/; + $netc->{HOSTNAME} =~ /\.(.*)$/; $1 and $netc->{DOMAINNAME} = $1; } ($netc->{DOMAINNAME}) ||= 'localdomain'; @@ -301,6 +301,7 @@ notation (for example, 1.2.3.4)."); my $pump = $intf->{BOOTPROTO} =~ /^(dhcp|bootp)$/; delete $intf->{NETWORK}; delete $intf->{BROADCAST}; + my $onboot = 1; my @fields = qw(IPADDR NETMASK); $::isStandalone or $in->set_help('configureNetworkIP'); $in->ask_from(_("Configuring network device %s", $intf->{DEVICE}), @@ -309,6 +310,7 @@ notation (for example, 1.2.3.4)."); [ { 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)") }, + { label => _("Started at boot"), val => \$onboot, type => "bool" }, if_($intf->{wireless_eth}, { label => "WIRELESS_MODE", val => \$intf->{WIRELESS_MODE}, list => [ "Ad-hoc", "Managed", "Master", "Repeater", "Secondary", "Auto"] }, { label => "WIRELESS_ESSID", val => \$intf->{WIRELESS_ESSID} }, @@ -347,6 +349,7 @@ notation (for example, 1.2.3.4)."); $intf->{NETMASK} ||= netmask($intf->{IPADDR}) unless $_[0] } ); + $intf->{ONBOOT} = bool2yesno($onboot); } sub configureNetworkNet { -- cgit v1.2.1