diff options
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 { |