| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455 |
- 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
|
