comgt-ncm: Fix NCM protocol
[openwrt.git] / package / network / utils / comgt / files / runcommand.gcom
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
13  waitfor 15 "OK","ERR","ERROR","COMMAND NOT SUPPORT"
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