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();
 }