diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/detect_devices.pm | 38 |
1 files changed, 25 insertions, 13 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 811597dd4..18a58c054 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -428,21 +428,33 @@ sub getSagem() { } # 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 +# perl -e 'while (<>) { print qq("$1$2",\n"$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", + "05090801", + "05472131", + "06590915", + "071dac81", + "08ea00c9", + "09150001", + "09150002", + "091500ca", + "091500e7", + "09150101", + "09150102", + "09150204", + "09150206", + "09150802", + "09150916", + "09158000", + "09158001", + "0915ac82", + "0baf00e6", + "0e600100", + "0e600101", + "0fe88000", + "16900203", + "16900205", ); grep { member(sprintf("%04x%04x%04x%04x", $_->{vendor}, $_->{id}, $_->{subvendor}, $_->{subid}), @ids) } usb_probe(); } |