mirror of
https://github.com/openwrt/openwrt.git
synced 2024-12-23 15:32:33 +00:00
6db7b50cec
Signed-off-by: Daniel Golle <dgolle@allnet.de> SVN-Revision: 29365
21 lines
275 B
Plaintext
21 lines
275 B
Plaintext
opengt
|
|
set com 115200n81
|
|
set comecho off
|
|
set senddelay 0.02
|
|
waitquiet 0.2 0.2
|
|
flash 0.1
|
|
|
|
:start
|
|
send "AT+CNUM^m"
|
|
get 1 "^m" $n
|
|
get 1 ":" $n
|
|
get 1 "\"" $n
|
|
get 1 "\"" $n
|
|
get 1 "\"" $n
|
|
get 1 "\"" $n
|
|
let n = len($n)
|
|
if n<1 goto continue
|
|
print $n
|
|
:continue
|
|
exit 0
|