| b.liu | e958203 | 2025-04-17 19:18:16 +0800 | [diff] [blame^] | 1 | # set wwan mode from environment |
| 2 | opengt | ||||
| 3 | set com 115200n81 | ||||
| 4 | set senddelay 0.02 | ||||
| 5 | waitquiet 1 0.2 | ||||
| 6 | flash 0.1 | ||||
| 7 | |||||
| 8 | :start | ||||
| 9 | print "Trying to set mode\n" | ||||
| 10 | send $env("MODE") | ||||
| 11 | send "^m" | ||||
| 12 | |||||
| 13 | waitfor 15 "OK","ERR","ERROR" | ||||
| 14 | if % = 0 goto continue | ||||
| 15 | if % = 1 goto modeerror | ||||
| 16 | if % = 2 goto modeerror | ||||
| 17 | |||||
| 18 | print "Timeout setting WWAN mode!\n" | ||||
| 19 | exit 1 | ||||
| 20 | |||||
| 21 | :modeerror | ||||
| 22 | print "Error setting WWAN mode!\n" | ||||
| 23 | exit 1 | ||||
| 24 | |||||
| 25 | :continue | ||||
| 26 | exit 0 | ||||