summaryrefslogtreecommitdiffstats
path: root/perl-install/network/ethernet.pm
diff options
context:
space:
mode:
authorFrederic Lepied <flepied@mandriva.com>2002-11-19 16:57:35 +0000
committerFrederic Lepied <flepied@mandriva.com>2002-11-19 16:57:35 +0000
commit9ff7af06907da2605f137d16d7197a7ebe121051 (patch)
tree0a55dd6c963653f34563bc23d6cbdec5aac4c13a /perl-install/network/ethernet.pm
parent0824ed99a9557409655ef837bcdc1bc317fc8c37 (diff)
downloaddrakx-9ff7af06907da2605f137d16d7197a7ebe121051.tar
drakx-9ff7af06907da2605f137d16d7197a7ebe121051.tar.gz
drakx-9ff7af06907da2605f137d16d7197a7ebe121051.tar.bz2
drakx-9ff7af06907da2605f137d16d7197a7ebe121051.tar.xz
drakx-9ff7af06907da2605f137d16d7197a7ebe121051.zip
default dhcp client is dhcp-client
Diffstat (limited to 'perl-install/network/ethernet.pm')
-rw-r--r--perl-install/network/ethernet.pm16
1 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index bda415549..97d368843 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -26,24 +26,24 @@ sub configure_cable {
# [N("Host name:")], [ \$netcnx->{cable}{hostname} ]);
if ($::expert) {
my @m = (
- { description => "dhcpcd",
+ { description => "dhcp-client",
c => 1 },
- { description => "dhcpxd",
+ { description => "dhcpcd",
c => 3 },
- { description => "dhcp-client",
+ { description => "dhcpxd",
c => 4 },
);
if (my $f = $in->ask_from_listf(N("Connect to the Internet"),
N("Which dhcp client do you want to use?
-Default is dhcpcd"),
+Default is dhcp-client"),
sub { $_[0]{description} },
\@m)) {
- $f->{c} == 1 and $netcnx->{dhcp_client} = "dhcpcd" and $in->do_pkgs->install(qw(dhcpcd));
- $f->{c} == 3 and $netcnx->{dhcp_client} = "dhcpxd" and $in->do_pkgs->install(qw(dhcpxd));
- $f->{c} == 4 and $netcnx->{dhcp_client} = "dhcp-client" and $in->do_pkgs->install(qw(dhcp-client));
+ $f->{c} == 3 and $netcnx->{dhcp_client} = "dhcpcd" and $in->do_pkgs->install(qw(dhcpcd));
+ $f->{c} == 4 and $netcnx->{dhcp_client} = "dhcpxd" and $in->do_pkgs->install(qw(dhcpxd));
+ $f->{c} == 1 and $netcnx->{dhcp_client} = "dhcp-client" and $in->do_pkgs->install(qw(dhcp-client));
}
} else {
- $in->do_pkgs->install(qw(dhcpcd));
+ $in->do_pkgs->install(qw(dhcp-client));
}
go_ethernet($netc, $intf, 'dhcp', '', '', $first_time);
write_cnx_script($netc, "cable",