summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-07-22 19:58:06 +0000
committerdamien <damien@mandriva.com>2001-07-22 19:58:06 +0000
commit21d632055bbe913d53c3324d7465a38621d6d79e (patch)
tree7c77561c2e33fd8c52c4fa8cc75e4364bbf0f5eb /perl-install/detect_devices.pm
parent62549c2cc589b26db909835e4ceb4a71c3e93630 (diff)
downloaddrakx-backup-do-not-use-21d632055bbe913d53c3324d7465a38621d6d79e.tar
drakx-backup-do-not-use-21d632055bbe913d53c3324d7465a38621d6d79e.tar.gz
drakx-backup-do-not-use-21d632055bbe913d53c3324d7465a38621d6d79e.tar.bz2
drakx-backup-do-not-use-21d632055bbe913d53c3324d7465a38621d6d79e.tar.xz
drakx-backup-do-not-use-21d632055bbe913d53c3324d7465a38621d6d79e.zip
big work on isdn. Not finished
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm13
1 files changed, 13 insertions, 0 deletions
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 {