comgt: add missing file (fixes #10301)

SVN-Revision: 28648
2011-10-28 11:30:21 +00:00 · 2011-10-28 11:30:21 +00:00 · b58d54f621
commit b58d54f621
parent b2d89b45d3
1 changed files with 20 additions and 0 deletions
--- a/package/comgt/files/getcarrier.gcom
+++ b/package/comgt/files/getcarrier.gcom
@ -0,0 +1,20 @@
+opengt
+  set senddelay 0.05
+  waitquiet 1 0.2
+  let c=1
+ :loop
+    inc c
+    send "AT+CGATT?^m"
+    waitfor 5 "+CGATT: 1","+CGATT: 0"
+    print "\n."
+    if % = -1 goto error
+    if c > 10 goto toolong
+    if % = 0 goto out
+    sleep 2
+    if % = 1 goto loop
+  :toolong
+  exit 1
+  :error
+  exit 0
+  :out
+ exit 0