From fbcd0969b3316b1c52aa72c9ebade8fbb3ec7c5c Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Wed, 25 Aug 2004 05:35:48 +0000
Subject: add get_interface_type to guess interface type

---
 perl-install/network/tools.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 506086043..50165f871 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -285,4 +285,11 @@ sub test_internet_connection() {
     }
 }
 
+sub get_interface_type {
+    my ($interface) = @_;
+    $interface->{DEVICE} =~/^(eth|ath|wlan)/ && "ethernet" ||
+    $interface->{DEVICE} =~/^ippp/ && "isdn" ||
+    $interface->{DEVICE} =~ /^ppp/ && (member($interface->{TYPE}, "xDSL", "ADSL") ? "adsl" : "modem");
+}
+
 1;
-- 
cgit v1.2.1