mirror of
git://projects.qi-hardware.com/openwrt-xburst.git
synced 2024-12-21 04:07:45 +02:00
18 lines
242 B
Plaintext
18 lines
242 B
Plaintext
|
opengt
|
||
|
|
set com 115200n81
|
||
|
|
set comecho off
|
||
|
|
set senddelay 0.02
|
||
|
|
waitquiet 0.2 0.2
|
||
|
|
flash 0.1
|
||
|
|
|
||
|
|
:start
|
||
|
|
send "AT+CIMI^m"
|
||
|
|
get 1 "^m" $s
|
||
|
|
get 1 "^m" $s
|
||
|
|
let x = len($s)
|
||
|
|
if x<2 goto continue
|
||
|
|
let $s = $right($s, x-1)
|
||
|
|
print $s
|
||
|
|
:continue
|
||
|
|
exit 0
|