From 151e38cb69a3938924baa474db6f98218200591b Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 19 May 2005 03:02:45 +0000 Subject: (adsl_detect) detect more ADSL USB modems --- perl-install/network/adsl.pm | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index b69261f99..c862b6f23 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -84,13 +84,17 @@ sub adsl_probe_info { } sub adsl_detect() { - my $adsl = {}; require detect_devices; - @{$adsl->{bewan}} = detect_devices::getBewan(); - @{$adsl->{speedtouch}} = detect_devices::getSpeedtouch(); - @{$adsl->{sagem}} = detect_devices::getSagem(); - @{$adsl->{eci}} = detect_devices::getECI(); - return $adsl; + my %compat = ( + 'speedtch' => 'speedtouch', + 'eagle-usb' => 'sagem', + ); + + return { + bewan => [ detect_devices::getBewan() ], + eci => [ detect_devices::getECI() ], + map { my $drv = $_->{driver}; $drv = $compat{$drv} || $drv; $drv => $_ } modules::probe_category('network/usb_dsl'), + }; } sub sagem_set_parameters { -- cgit v1.2.1