# run AT-command from environment | |
opengt | |
set com 115200n81 | |
set senddelay 0.02 | |
waitquiet 1 0.2 | |
flash 0.1 | |
:start | |
print "sending -> ",$env("COMMAND"),"\n" | |
send $env("COMMAND") | |
send "^m" | |
waitfor 25 "OK","ERR","ERROR","COMMAND NOT SUPPORT" | |
if % = 0 goto continue | |
if % = 1 goto error | |
if % = 2 goto error | |
if % = 3 goto notsupported | |
print "Timeout running AT-command\n" | |
exit 1 | |
:error | |
print "Error running AT-command\n" | |
exit 1 | |
:notsupported | |
print "AT-command not supported\n" | |
exit 1 | |
:continue | |
exit 0 |