summaryrefslogtreecommitdiffstats
path: root/perl-install/network/ethernet.pm
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2003-02-03 01:13:17 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2003-02-03 01:13:17 +0000
commite734893910ec95175fba3ae10cf8a1671d6345d3 (patch)
tree249888f95c42ef6b83310eeb373f0f2905ff41fd /perl-install/network/ethernet.pm
parent7f75ad9564adab60db74a28c27bdc3b934828cf0 (diff)
downloaddrakx-e734893910ec95175fba3ae10cf8a1671d6345d3.tar
drakx-e734893910ec95175fba3ae10cf8a1671d6345d3.tar.gz
drakx-e734893910ec95175fba3ae10cf8a1671d6345d3.tar.bz2
drakx-e734893910ec95175fba3ae10cf8a1671d6345d3.tar.xz
drakx-e734893910ec95175fba3ae10cf8a1671d6345d3.zip
- fix zeroconf support
- cleanups
Diffstat (limited to 'perl-install/network/ethernet.pm')
-rw-r--r--perl-install/network/ethernet.pm11
1 files changed, 3 insertions, 8 deletions
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index 6df6bc30e..febfc0b46 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -1,6 +1,6 @@
package network::ethernet;
-use strict;
+
use network::network;
use modules;
use modules::interactive;
@@ -8,7 +8,7 @@ use detect_devices;
use common;
use run_program;
use network::tools;
-use vars qw(@ISA @EXPORT);
+
use MDK::Common::Globals "network", qw($in $prefix);
@ISA = qw(Exporter);
@@ -156,10 +156,6 @@ sub go_ethernet {
conf_network_card($netc, $intf, $type, $ipadr, $netadr) or return;
$netc->{NET_INTERFACE} = $netc->{NET_DEVICE};
configureNetwork($netc, $intf, $first_time) or return;
-# if ( $::isStandalone and $netc->{NET_DEVICE}) {
-# $in->ask_yesorno(N("Network interface"),
-# N("I'm about to restart the network device %s. Do you agree?", $netc->{NET_DEVICE}), 1) and system("$prefix/sbin/ifdown $netc->{NET_DEVICE}; $prefix/sbin/ifup $netc->{NET_DEVICE}");
-# }
1;
}
@@ -186,7 +182,6 @@ sub configureNetwork {
if ($last->{BOOTPROTO} !~ /static/) {
$netc->{minus_one} = 1;
- $netc->{DHCP} = 1;
$::isInstall and $in->set_help('configureNetworkHostDHCP');
$in->ask_from(N("Configuring network"),
N("Please enter your host name if you know it.
@@ -194,7 +189,7 @@ Some DHCP servers require the hostname to work.
Your host name should be a fully-qualified host name,
such as ``mybox.mylab.myco.com''."),
[ { label => N("Host name"), val => \$netc->{HOSTNAME} },
- { label => N("Zeroconf Host name"), val => \$netc->{ZEROCONF_HOSTNAME} },
+ if_($netc->{ZEROCONF}, { label => N("Zeroconf Host name"), val => \$netc->{ZEROCONF_HOSTNAME} }),
]) or goto configureNetwork_step_1;
} else {
configureNetworkNet($in, $netc, $last ||= {}, @l) or goto configureNetwork_step_1;