diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-22 15:12:21 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-22 15:12:21 +0000 |
| commit | 48130561b573e9f4923ad66a370ed562afed7dd7 (patch) | |
| tree | f00a47358586c29b110c35fa6696eb045f372dfb /perl-install/detect_devices.pm | |
| parent | 403ad9456fb4b610b8e8f24eb442a2727879072f (diff) | |
| download | drakx-48130561b573e9f4923ad66a370ed562afed7dd7.tar drakx-48130561b573e9f4923ad66a370ed562afed7dd7.tar.gz drakx-48130561b573e9f4923ad66a370ed562afed7dd7.tar.bz2 drakx-48130561b573e9f4923ad66a370ed562afed7dd7.tar.xz drakx-48130561b573e9f4923ad66a370ed562afed7dd7.zip | |
(getECI) introduce it in order to detect eci like usb modems
Diffstat (limited to 'perl-install/detect_devices.pm')
| -rw-r--r-- | perl-install/detect_devices.pm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index c426b147c..811597dd4 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -427,6 +427,26 @@ sub getSagem() { grep { $_->{description} eq 'Analog Devices Inc.|USB ADSL modem' } probeall(); } +# generate from the following from eci driver sources: +# perl -e 'while (<>) { print qq("$1$2$3$4",\n) if /\b([a-z\d]*)\s*([a-z\d]*)\s*([a-z\d]*)\s*([a-z\d]*)$/ }' <modems.db|sort|uniq +sub getECI() { + my @ids =( + "0509080109150802", + "0547213109158000", + "0659091509150916", + "071dac810915ac82", + "08ea00c9091500ca", + "0915000109150002", + "0baf00e6091500e7", + "0e60010009150101", + "0e60010109150102", + "0fe8800009158001", + "1690020309150204", + "1690020509150206", + ); + grep { member(sprintf("%04x%04x%04x%04x", $_->{vendor}, $_->{id}, $_->{subvendor}, $_->{subid}), @ids) } usb_probe(); +} + sub getNet() { grep { !($::isStandalone && /plip/) && c::hasNetDevice($_) } grep { /^(eth|fddi|plip|tr|usb|wifi|wlan)/ } |