b58d54f621
SVN-Revision: 28648
21 lines
312 B
Plaintext
21 lines
312 B
Plaintext
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
|