OpenWrt – Blame information for rev 3
?pathlinks?
Rev | Author | Line No. | Line |
---|---|---|---|
1 | office | 1 | # run AT-command 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 "sending -> ",$env("COMMAND"),"\n" |
||
10 | send $env("COMMAND") |
||
11 | send "^m" |
||
12 | |||
3 | office | 13 | waitfor 15 "OK","ERR","ERROR","COMMAND NOT SUPPORT" |
1 | office | 14 | if % = 0 goto continue |
15 | if % = 1 goto error |
||
16 | if % = 2 goto error |
||
17 | if % = 3 goto notsupported |
||
18 | |||
19 | print "Timeout running AT-command\n" |
||
20 | exit 1 |
||
21 | |||
22 | :error |
||
23 | print "Error running AT-command\n" |
||
24 | exit 1 |
||
25 | |||
26 | :notsupported |
||
27 | print "AT-command not supported\n" |
||
28 | exit 1 |
||
29 | |||
30 | :continue |
||
31 | exit 0 |