🌴 Sync 2026-03-05 23:51:42

luci-app-3ginfo-lite/root/usr/share/3ginfo-lite/info.gcom

@@ -0,0 +1,51 @@
+opengt
+ set com 115200n81
+ set comecho off
+ set senddelay 0.01
+ waitquiet 0.01 0.01
+
+ let $c="AT+CSQ^m"
+ let $r="+CSQ"
+ gosub readatcmd
+
+ let $c="AT+COPS=3,0;+COPS?^m"
+ let $r="+COPS"
+ gosub readatcmd
+
+ let $c="AT+COPS=3,2;+COPS?^m"
+ let $r="+COPS"
+ gosub readatcmd
+
+ let $c="AT+CREG=2;+CREG?^m"
+ let $r="+CREG"
+ gosub readatcmd
+
+ let $c="AT+CPIN?^m"
+ let $r="+CPIN"
+ gosub readatcmd
+
+ exit 0
+
+:readatcmd
+ let i=15
+ send $c
+:loop
+ get 0.1 "^m" $s
+ let l=len($r)
+ if len($s) < l goto loop1
+ if $mid($s,1,l) <> $r goto loop1
+ print $s
+ return
+
+:loop1
+ if len($s) < 2 goto loop2
+ if $mid($s,1,2) = "ER" return
+ if $mid($s,1,2) = "CO" return
+ if len($s) < 10 goto loop2
+ if $mid($s,1,10) != "+CME ERROR" goto loop2
+ print $s
+ return
+:loop2
+ if i = 0 exit 0
+ let i=i-1
+ goto loop