56 lines
961 B
Plaintext
56 lines
961 B
Plaintext
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
|