# set wwan mode from environment | |
opengt | |
set com 115200n81 | |
set senddelay 0.02 | |
waitquiet 1 0.2 | |
flash 0.1 | |
:start | |
print "Trying to set mode\n" | |
send $env("MODE") | |
send "^m" | |
waitfor 15 "OK","ERR","ERROR" | |
if % = 0 goto continue | |
if % = 1 goto modeerror | |
if % = 2 goto modeerror | |
print "Timeout setting WWAN mode!\n" | |
exit 1 | |
:modeerror | |
print "Error setting WWAN mode!\n" | |
exit 1 | |
:continue | |
exit 0 |