From 0cb2e4c1870c08cc118d1269cffc7082a14c81fb Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 23 Feb 2004 15:55:09 +0000 Subject: write ethX aliases and ifup/ifdown scripts when configuring a LAN connection --- perl-install/network/ethernet.pm | 1 - perl-install/network/netconnect.pm | 1 + 2 files changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm index 4dd7dfaca..fc53e28a5 100644 --- a/perl-install/network/ethernet.pm +++ b/perl-install/network/ethernet.pm @@ -13,7 +13,6 @@ use vars qw(@ISA @EXPORT); @ISA = qw(Exporter); @EXPORT = qw(conf_network_card_backend); -# FIXME: unused code to merge in into wizard sub write_ether_conf { my ($in, $netcnx, $netc, $intf) = @_; configureNetwork2($in, $::prefix, $netc, $intf); diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 72ee7810d..8033b53a7 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -954,6 +954,7 @@ I cannot set up this connection type.")), return; static_hostname => { pre => sub { + network::ethernet::write_ether_conf($in, $netcnx, $netc, $intf) if $netcnx->{type} = 'lan'; if ($ethntf->{IPADDR}) { $netc->{dnsServer} ||= dns($ethntf->{IPADDR}); $gateway_ex = gateway($ethntf->{IPADDR}); -- cgit v1.2.1