summaryrefslogtreecommitdiffstats
path: root/perl-install/network/ethernet.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network/ethernet.pm')
-rw-r--r--perl-install/network/ethernet.pm18
1 files changed, 9 insertions, 9 deletions
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index db7c6d376..9776924e6 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -46,6 +46,15 @@ Default is dhcpcd"),
$install->(qw(dhcpcd));
}
go_ethernet($netc, $intf, 'dhcp', '', '', $first_time);
+ write_cnx_script($netc, "cable",
+qq(
+#!/bin/bash
+ifup $netc->{NET_DEVICE}
+),
+qq(
+#!/bin/bash
+ifdown $netc->{NET_DEVICE}
+));
}
sub configure_lan {
@@ -166,15 +175,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;
- write_cnx_script($netc, "Local network",
-qq(
-#!/bin/bash
-ifup $netc->{NET_DEVICE}
-),
-qq(
-#!/bin/bash
-ifdown $netc->{NET_DEVICE}
-));
if ( $::isStandalone and $netc->{NET_DEVICE}) {
$in->ask_yesorno(_("Network interface"),
_("I'm about to restart the network device $netc->{NET_DEVICE}. Do you agree?"), 1) and system("$prefix/sbin/ifdown $netc->{NET_DEVICE}; $prefix/sbin/ifup $netc->{NET_DEVICE}");