diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-11-25 19:47:17 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-11-25 19:47:17 +0000 |
| commit | ff9275601b61d925814f9da7d625fe5c885421ca (patch) | |
| tree | e6fb0c16c101aa39803b2802736cc0d5344e8330 | |
| parent | 60977c62dfd825cf1414a7eb395b0be53532c6dc (diff) | |
| download | drakx-ff9275601b61d925814f9da7d625fe5c885421ca.tar drakx-ff9275601b61d925814f9da7d625fe5c885421ca.tar.gz drakx-ff9275601b61d925814f9da7d625fe5c885421ca.tar.bz2 drakx-ff9275601b61d925814f9da7d625fe5c885421ca.tar.xz drakx-ff9275601b61d925814f9da7d625fe5c885421ca.zip | |
add support for Sagem USB Modem (for free.fr ;-))
| -rw-r--r-- | perl-install/network/adsl.pm | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index 206d81dea..79f186426 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -23,7 +23,9 @@ sub configure { my $l = [N_("use pppoe"), N_("use pptp"), N_("use dhcp"), - N_("Alcatel speedtouch usb") . if_($netc->{autodetect}{adsl}{speedtouch}, " - detected")]; + N_("Alcatel speedtouch usb") . if_($netc->{autodetect}{adsl}{speedtouch}, " - detected"), + N_("Sagem (using pppoe) usb") . if_($netc->{autodetect}{adsl}{sagem}, " - detected"), + ]; my $type = $in->ask_from_list_(N("Connect to the Internet"), N("The most common way to connect with adsl is pppoe. Some connections use pptp, a few ones use dhcp. @@ -41,6 +43,15 @@ If you don't know, choose 'use pppoe'"), $l) or return; # and system("$prefix/sbin/ifdown $netc->{NET_DEVICE}; $prefix/sbin/ifup $netc->{NET_DEVICE}"); # } } + #- use pppoe for Sagem modem, but NET_DEVICE is now ADIModem instead of ethx. + if ($type =~ /Sagem/) { + $in->do_pkgs->install(qw(rp-pppoe adiusbadsl)); + $netcnx->{type} = "adsl_pppoe"; + $netcnx->{"adsl_pppoe"} = {}; + modules::add_alias('ADIModem', 'adiusbadsl'); + $netc->{$_} = 'ADIModem' foreach qw(NET_DEVICE NET_INTERFACE); + adsl_conf($netcnx->{"adsl_pppoe"}, $netc, $intf, $type) or goto conf_adsl_step1; + } if ($type eq 'dhcp') { $in->do_pkgs->install(qw(dhcpcd)); go_ethernet($netc, $intf, 'dhcp', '', '', $first_time) or goto conf_adsl_step1; @@ -82,7 +93,8 @@ sub adsl_detect { my ($adsl) = @_; require detect_devices; $adsl->{speedtouch} = detect_devices::getSpeedtouch(); - return $adsl if $adsl->{speedtouch}; + $adsl->{sagem} = detect_devices::getSagem(); + return $adsl if $adsl->{speedtouch} || $adsl->{sagem}; } sub adsl_conf { |