diff options
author | John Crispin <john@openwrt.org> | 2014-09-11 12:26:31 +0000 |
---|---|---|
committer | John Crispin <john@openwrt.org> | 2014-09-11 12:26:31 +0000 |
commit | 7bad68804c751fb81419fd4e6a1ab0f2e9c1836c (patch) | |
tree | 7ba11f582107cdc0d677eda257d0f1072cb6aa69 /package/network/utils/comgt/files/directip.gcom | |
parent | cc82f93251fb183c77787456c4a76c5abb1dad69 (diff) | |
download | upstream-7bad68804c751fb81419fd4e6a1ab0f2e9c1836c.tar.gz upstream-7bad68804c751fb81419fd4e6a1ab0f2e9c1836c.tar.bz2 upstream-7bad68804c751fb81419fd4e6a1ab0f2e9c1836c.zip |
comgt: add directip proto
add a proto handler for sierra wireless directip modems
Signed-off-by: John Crispin <blogic@openwrt.org>
SVN-Revision: 42465
Diffstat (limited to 'package/network/utils/comgt/files/directip.gcom')
-rw-r--r-- | package/network/utils/comgt/files/directip.gcom | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/package/network/utils/comgt/files/directip.gcom b/package/network/utils/comgt/files/directip.gcom new file mode 100644 index 0000000000..afaaacf4ad --- /dev/null +++ b/package/network/utils/comgt/files/directip.gcom @@ -0,0 +1,55 @@ +opengt +set com 115200n81 +set comecho off +set senddelay 0.05 +waitquiet 1 0.2 + +:start + if $env("USE_AUTH") = "0" goto connect + send "AT$QCPDPP=3," + send $env("USE_AUTH") + send ",\"" + if $env("USE_USER") <> "" send $env("USE_USER") + send "\",\"" + if $env("USE_PASS") <> "" send $env("USE_PASS") + send "\"^m" + waitfor 5 "OK" + if % = 0 goto connect + print "WWAN error. Auth failed.\r\n" + exit 1 + +:connect + send "AT+CFUN=1^m" + send "AT+CGDCONT=3,\"IP\",\"" + send $env("USE_APN") + send "\"^m" + waitfor 5 "OK" + if % = 0 goto connok + print "WWAN error. Connection failed.\r\n" + exit 1 + +:connok + let c=1 +:loop + sleep 2 + send "AT+CGATT?^m" + waitfor 5 "+CGATT: 1" + if % = 0 goto carrierok + if c > 10 goto carriererr + inc c + goto loop + +carriererr: + print "WWAN error. No carrier.\r\n" + exit 1 + +:carrierok + send "AT!SCACT=1,3^m" + waitfor 5 "OK" + if % = 0 goto dialok + print "WWAN error. Dialing failed.\r\n" + exit 1 + +:dialok + print "WWAN connection established.\r\n" + exit 0 |