diff options
Diffstat (limited to 'perl-install/network/ethernet.pm')
| -rw-r--r-- | perl-install/network/ethernet.pm | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm index 35e22308b..dcda7b643 100644 --- a/perl-install/network/ethernet.pm +++ b/perl-install/network/ethernet.pm @@ -12,31 +12,16 @@ use network::tools; our @dhcp_clients = qw(dhclient dhcpcd pump dhcpxd); sub install_dhcp_client { - my ($in, $ethntf) = @_; + my ($in, $client) = @_; my %packages = ( "dhclient" => "dhcp-client", ); - my $client = $ethntf->{DHCP_CLIENT}; #- use default dhcp client if none is provided $client ||= $dhcp_clients[0]; $client = $packages{$client} if exists $packages{$client}; $in->do_pkgs->install($client); } -sub write_ether_conf { - my ($in, $modules_conf, $netcnx, $netc, $intf) = @_; - configureNetwork2($in, $modules_conf, $::prefix, $netc, $intf); - $netc->{NETWORKING} = "yes"; - if ($netc->{GATEWAY} || any { $_->{BOOTPROTO} =~ /dhcp/ } values %$intf) { - $netcnx->{type} = 'lan'; - $netcnx->{NET_DEVICE} = $netc->{NET_DEVICE} = ''; - $netcnx->{NET_INTERFACE} = 'lan'; #$netc->{NET_INTERFACE}; - } - $::isStandalone and $modules_conf->write; - 1; -} - - sub mapIntfToDevice { my ($interface) = @_; my $hw_addr = c::getHwIDs($interface); |