diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-22 12:13:06 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-22 12:13:06 +0000 |
| commit | 6a39ff8a0ef0ae3a8b15df09a69306066881ce06 (patch) | |
| tree | 6a15a80a3e68df77a56f136af9e5d7bc25f87875 /perl-install/network/netconnect.pm | |
| parent | 96e00263c2f09c43af2e8b79eb1f8d91f940bdbe (diff) | |
| download | drakx-6a39ff8a0ef0ae3a8b15df09a69306066881ce06.tar drakx-6a39ff8a0ef0ae3a8b15df09a69306066881ce06.tar.gz drakx-6a39ff8a0ef0ae3a8b15df09a69306066881ce06.tar.bz2 drakx-6a39ff8a0ef0ae3a8b15df09a69306066881ce06.tar.xz drakx-6a39ff8a0ef0ae3a8b15df09a69306066881ce06.zip | |
install needed package depending of modem
Diffstat (limited to 'perl-install/network/netconnect.pm')
| -rw-r--r-- | perl-install/network/netconnect.pm | 31 |
1 files changed, 23 insertions, 8 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 470e22fa3..1477b25c7 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -89,7 +89,7 @@ sub get_subwizard { my ($network_configured, $direct_net_install, $cnx_type, $type, $interface, @cards, @all_cards, @devices); my (%connections, %rconnections, @connection_list); my ($modem, $modem_name, $modem_conf_read, $modem_dyn_dns, $modem_dyn_ip); - my ($adsl_type, @adsl_devices); + my ($adsl_type, $adsl_device, @adsl_devices); my ($ntf_name, $ipadr, $netadr, $gateway_ex, $up, $isdn, $isdn_type, $need_restart_network); my ($module, $text, $auto_ip, $net_device, $onboot, $needhostname, $hotplug, $track_network_id, @fields); # lan config my $success = 1; @@ -144,6 +144,14 @@ sub get_subwizard { modules::add_alias($card->[0], $card->[1]); } }; + + my %adsl_devices = ( + speedtouch => N("Alcatel speedtouch USB modem"), + sagem => N("Sagem USB modem"), + bewan_usb => N("Bewan USB modem"), + bewan_pci => N("Bewan PCI modem"), + ); + # main wizard: my $wiz; @@ -509,18 +517,25 @@ killall pppd get_subwizard($wiz, 'adsl'); $lan_detect->(); detect($netc->{autodetect}, 'adsl'); + # FIXME: we still need to detect bewan modems @adsl_devices = @cards; - push @adsl_devices, N("Alcatel speedtouch USB modem") if $netc->{autodetect}{adsl}{speedtouch}; - push @adsl_devices, N("Sagem USB modem") if $netc->{autodetect}{adsl}{sagem}; - # we still need to detect those: - N("Eagle USB modem"); - N("Bewan USB modem"); - N("Bewan PCI modem"); + push @adsl_devices, $adsl_devices{speedtouch} if $netc->{autodetect}{adsl}{speedtouch}; + push @adsl_devices, $adsl_devices{sagem} if $netc->{autodetect}{adsl}{sagem}; }, name => N("ADSL configuration") . "\n\n" . N("Select the network interface to configure:"), data => [ { label => N("Net Device"), type => "list", val => \$ntf_name, allow_empty_list => 1, list => \@adsl_devices, } ], - next => "adsl_protocol", + post => sub { + my %packages = ( + 'eci' => 'eciadsl', + 'sagem' => 'adiusbadsl', + 'speedtouch' => 'speedtouch', + ); + my $adsl_device = find { $adsl_devices{$_} eq $ntf_name } keys %adsl_devices; + print "package: $ntf_name => $adsl_device => $packages{$adsl_device}\n"; + $in->do_pkgs->install($packages{$adsl_device}) if $packages{$adsl_device}; + return 'adsl_protocol'; + }, }, |