diff options
| author | Frederic Lepied <flepied@mandriva.com> | 2002-11-19 16:57:35 +0000 |
|---|---|---|
| committer | Frederic Lepied <flepied@mandriva.com> | 2002-11-19 16:57:35 +0000 |
| commit | 9ff7af06907da2605f137d16d7197a7ebe121051 (patch) | |
| tree | 0a55dd6c963653f34563bc23d6cbdec5aac4c13a /perl-install/network/ethernet.pm | |
| parent | 0824ed99a9557409655ef837bcdc1bc317fc8c37 (diff) | |
| download | drakx-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.pm | 16 |
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", |