diff options
Diffstat (limited to 'perl-install/network/ethernet.pm')
| -rw-r--r-- | perl-install/network/ethernet.pm | 117 |
1 files changed, 117 insertions, 0 deletions
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm new file mode 100644 index 000000000..c03d64e9a --- /dev/null +++ b/perl-install/network/ethernet.pm @@ -0,0 +1,117 @@ +package network::ethernet; + +use network; +use modules; +use any; +use detect_devices; +use common qw(:file); +use vars qw(@ISA @EXPORT); + +@ISA = qw(Exporter); +@EXPORT = qw(conf_network_card conf_network_card_backend go_ethernet); + +sub conf_network_card { + my ($netc, $intf, $type, $ipadr, $netadr) = @_; + #-type =static or dhcp + any::setup_thiskind($in, 'net', !$::expert, 1); + my @all_cards=conf_network_card_backend($prefix, $netc, $intf, $type, undef, $ipadr, $netadr); + my $interface; + @all_cards == () and $in->ask_warn('', _("No ethernet network adapter has been detected on your system. +I cannot set up this connection type.")) and return; + @all_cards == 1 and $interface = $all_cards[0]->[0] and goto l1; + again : + $interface = $in->ask_from_list(_("Choose the network interface"), + _("Please choose which network adapter you want to use to connect to Internet"), + [ map { $_->[0] . ($_->[1] ? " ( using module $_->[1] )" : "") } @all_cards ] + ) or return; + defined $interface or goto again; + l1: + $::isStandalone and modules::write_conf($prefix); + + my $device=conf_network_card_backend($prefix, $netc, $intf, $type, $interface, $ipadr, $netadr, $interface); + if ( $::isStandalone and !($type eq "dhcp")) { + $in->ask_yesorno(_("Network interface"), + _("I'm about to restart the network device:\n") . $device . _("\nDo you agree?"), 1) and network::configureNetwork2($in, $prefix, $netc, $intf) and system("$prefix/sbin/ifdown $device;$prefix/sbin/ifup $device"); + } + 1; +} + +#- conf_network_card_backend : configure the network cards and return the list of them, or configure one specified interface : WARNING, you have to setup the ethernet cards, by calling setup_thiskind($in, 'net', !$::expert, 1) or setup_thiskind_backend before calling this function. Basically, you call this function in 2 times. +#- input +#- $prefix +#- $netc +#- $intf +#- $type : type of interface, must be given if $interface is : string : "static" or "dhcp" +#- $interface : facultative, if given, set this interface and return it in a proper form. If not, return @all_cards +#- $ipadr : facultative, ip address of the interface : string +#- $netadr : facultative, netaddress of the interface : string +#- when $interface is given, informations are written in $intf and $netc. If not, @all_cards is returned. +#- $intf output: $device is the result of +#- $intf->{$device}->{DEVICE} : which device is concerned : $device is the result of $interface =~ /(eth[0-9]+)/; my $device = $1;; +#- $intf->{$device}->{BOOTPROTO} : $type +#- $intf->{$device}->{NETMASK} : '255.255.255.0' +#- $intf->{$device}->{NETWORK} : $netadr +#- $intf->{$device}->{ONBOOT} : "yes" +#- $netc output: +#- $netc->{nb_cards} : nb of ethernet cards +#- $netc->{NET_DEVICE} : this is used to indicate that this eth card is used to connect to internet : $device +#- output: +#- $all_cards : a list of a list ( [eth1, module1], ... , [ethn, modulen]). Pass the ethx as $interface in further call. +#- $device : only returned in case $interface was given it's $interface, but filtered by /eth[0-9+]/ : string : /eth[0-9+]/ +sub conf_network_card_backend { + my ($prefix, $netc, $intf, $type, $interface, $ipadr, $netadr) = @_; + #-type =static or dhcp + if (!$interface) { + my @all_cards = detect_devices::getNet(); + $netc->{nb_cards} = @all_cards; + + my @devs = modules::get_pcmcia_devices(); + modules::mergein_conf("$prefix/etc/modules.conf"); + my $saved_driver; + return map { + my $interface = $_; + my $a = modules::get_alias($interface); + my $b; + foreach (@devs) { + $_->{device} eq $interface and $b = $_->{driver}; + } + $a ||= $b; + if ($a) { $saved_driver = $a } + [$interface, $saved_driver]; + } @all_cards; + } + my ($device) = $interface =~ /(eth[0-9]+)/ or die("the interface is not an ethx"); + $netc->{NET_DEVICE} = $device; #- one consider that there is only ONE Internet connection device.. + + @{$intf->{$device}}{qw(DEVICE BOOTPROTO NETMASK NETWORK ONBOOT)} = + ($device, $type, '255.255.255.0', $netadr, 'yes'); + + $intf->{$device}->{IPADDR} = $ipadr if $ipadr; + $device; +} + +sub go_ethernet { + my ($netc, $intf, $type, $ipadr, $netadr, $first_time) = @_; + conf_network_card($netc, $intf, $type, $ipadr, $netadr) or return; + $netc->{NET_INTERFACE}=$netc->{NET_DEVICE}; + network::configureNetwork($prefix, $netc, $in, $intf, $first_time) or return; + output "$prefix$connect_file", + qq( +#!/bin/bash +ifup $netc->{NET_DEVICE} +); + output "$prefix$disconnect_file", + qq( +#!/bin/bash +ifdown $netc->{NET_DEVICE} +); + chmod 0755, "$prefix$disconnect_file"; + chmod 0755, "$prefix$connect_file"; + 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}"); + } + 1; +} + +1; |