projects
/
openwrt
/
staging
/
luka.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
450cf8c4131e4def6f5e6dca771c6574549f2d39
[openwrt/staging/luka.git]
/
package
/
comgt
/
files
/
getcnum.gcom
1
opengt
2
set com 115200n81
3
set comecho off
4
set senddelay 0.02
5
waitquiet 0.2 0.2
6
flash 0.1
7
8
:start
9
send "AT+CNUM^m"
10
get 1 "^m" $n
11
get 1 ":" $n
12
get 1 "\"" $n
13
get 1 "\"" $n
14
get 1 "\"" $n
15
get 1 "\"" $n
16
let n = len($n)
17
if n<1 goto continue
18
print $n
19
:continue
20
exit 0