summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-22 15:12:21 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-22 15:12:21 +0000
commit48130561b573e9f4923ad66a370ed562afed7dd7 (patch)
treef00a47358586c29b110c35fa6696eb045f372dfb /perl-install/detect_devices.pm
parent403ad9456fb4b610b8e8f24eb442a2727879072f (diff)
downloaddrakx-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.pm20
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)/ }