Root/
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 |
27 |