From 976496eca76abf6bb6e95c86ac65cacd76608a69 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 3 Sep 2004 05:47:31 +0000 Subject: support DHCP and manual for sagem devices --- perl-install/network/netconnect.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'perl-install/network') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 522beecd7..3ea33ebb0 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -767,8 +767,13 @@ If you don't know, choose 'use PPPoE'"), # blacklist bogus driver, enable ifplugd support else: $find_lan_module->(); $ethntf->{MII_NOT_SUPPORTED} ||= $is_hotplug_blacklisted->(); + if ($ntf_name eq "sagem") { + #- FIXME: duplicated with %modems from adsl.pm + $ethntf = $intf->{$ntf_name} = { DEVICE => "`/usr/sbin/eaglectrl -i`", MII_NOT_SUPPORTED => "yes" }; + } # process static/dhcp ethernet devices: - if (!exists $adsl_devices{$ntf_name} && member($adsl_type, qw(manual dhcp))) { + if (exists($intf->{$ntf_name}) && member($adsl_type, qw(manual dhcp))) { + $ethntf->{TYPE} = "ADSL"; $auto_ip = $adsl_type eq 'dhcp'; return 'lan_intf'; } -- cgit v1.2.1