diff options
| author | damien <damien@mandriva.com> | 2001-07-22 19:58:06 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-07-22 19:58:06 +0000 |
| commit | 21d632055bbe913d53c3324d7465a38621d6d79e (patch) | |
| tree | 7c77561c2e33fd8c52c4fa8cc75e4364bbf0f5eb /perl-install/detect_devices.pm | |
| parent | 62549c2cc589b26db909835e4ceb4a71c3e93630 (diff) | |
| download | drakx-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.pm | 13 |
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 { |