OpenWrt – Blame information for rev 3

Subversion Repositories:
Rev:
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