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