From 21d632055bbe913d53c3324d7465a38621d6d79e Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Sun, 22 Jul 2001 19:58:06 +0000
Subject: big work on isdn. Not finished

---
 perl-install/detect_devices.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'perl-install/detect_devices.pm')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 81a106098..a210515b5 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -190,9 +190,22 @@ sub getDAC960() {
 }
 
 sub getNet() {
+#      my @a;
+#      foreach (@netdevices) {
+#  	$::isStandalone && /plip/ and next;
+#  	print (" hhhhh $_ \n");
+#  	/ippp/ and run_program::rooted("", "/sbin/isdnctrl addif $_");
+#  	c::hasNetDevice($_) and push @a, $_;
+#      }
+#      /ippp/ and run_program::rooted("", "/sbin/isdnctrl delif $_") foreach @netdevices;
+#      @a;
     grep { !($::isStandalone && /plip/) && c::hasNetDevice($_) } @netdevices;
 }
 
+#sub getISDN() {
+#    mapgrep(sub {member (($_[0] =~ /\s*(\w*):/), @netdevices), $1 }, split(/\n/, cat_("/proc/net/dev")));
+#}
+
 sub pci_probe {
     my ($probe_type) = @_;
     map {
-- 
cgit v1.2.1