summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network')
-rw-r--r--perl-install/network/tools.pm7
1 files changed, 7 insertions, 0 deletions
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;