diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-04-05 18:17:57 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-04-05 18:17:57 +0000 |
| commit | 2a6231253a2b22185bb645a79036334776c694a7 (patch) | |
| tree | fec641ca0ee83df54194766c58910b8a28dbcc77 /perl-install/network/tools.pm | |
| parent | 842972c81bbb4b8a77329426dc2116045184f616 (diff) | |
| download | drakx-backup-do-not-use-2a6231253a2b22185bb645a79036334776c694a7.tar drakx-backup-do-not-use-2a6231253a2b22185bb645a79036334776c694a7.tar.gz drakx-backup-do-not-use-2a6231253a2b22185bb645a79036334776c694a7.tar.bz2 drakx-backup-do-not-use-2a6231253a2b22185bb645a79036334776c694a7.tar.xz drakx-backup-do-not-use-2a6231253a2b22185bb645a79036334776c694a7.zip | |
improve wifi detection
Diffstat (limited to 'perl-install/network/tools.pm')
| -rw-r--r-- | perl-install/network/tools.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm index 92fe5f1f6..844ce41b5 100644 --- a/perl-install/network/tools.pm +++ b/perl-install/network/tools.pm @@ -257,6 +257,7 @@ sub get_default_gateway_interface { (find { get_interface_type($intf->{$_}) eq 'adsl' } @intfs) || (find { get_interface_type($intf->{$_}) eq 'isdn' && text2bool($intf->{$_}{DIAL_ON_IFUP}) } @intfs) || (find { get_interface_type($intf->{$_}) eq 'modem' } @intfs) || + (find { get_interface_type($intf->{$_}) eq 'wifi' && $intf->{$_}{BOOTPROTO} eq 'dhcp' } @intfs) || (find { get_interface_type($intf->{$_}) eq 'ethernet' && $intf->{$_}{BOOTPROTO} eq 'dhcp' } @intfs); } @@ -277,16 +278,18 @@ sub get_internet_connection { sub get_interface_type { my ($interface) = @_; + require detect_devices; member($interface->{TYPE}, "xDSL", "ADSL") && "adsl" || - $interface->{DEVICE} =~ /^(eth|ath|wlan)/ && "ethernet" || $interface->{DEVICE} =~ /^ippp/ && "isdn" || $interface->{DEVICE} =~ /^ppp/ && "modem" || + c::isNetDeviceWirelessAware($interface->{DEVICE}) && "wifi" || + detect_devices::is_lan_interface($interface->{DEVICE}) && "ethernet" || "unknown"; } sub get_default_metric { my ($type) = @_; - my @known_types = ("ethernet_gigabit", "ethernet", "adsl", "isdn", "modem", "unknown"); + my @known_types = ("ethernet_gigabit", "ethernet", "adsl", "wifi", "isdn", "modem", "unknown"); my $idx; eval { $idx = find_index { $type eq $_ } @known_types }; $idx = @known_types if $@; |