From 2f6bc72d25509b1c1c988619bb9ee31896d5fc10 Mon Sep 17 00:00:00 2001 From: Roman Yeryomin Date: Sat, 6 Oct 2012 16:47:03 +0300 Subject: add query3g package Signed-off-by: Roman --- package/query3g/Makefile | 37 ++++++++++ package/query3g/files/query3g.gcom | 148 +++++++++++++++++++++++++++++++++++++ package/query3g/files/query3g.sh | 42 +++++++++++ 3 files changed, 227 insertions(+) create mode 100644 package/query3g/Makefile create mode 100644 package/query3g/files/query3g.gcom create mode 100644 package/query3g/files/query3g.sh diff --git a/package/query3g/Makefile b/package/query3g/Makefile new file mode 100644 index 000000000..f18e09903 --- /dev/null +++ b/package/query3g/Makefile @@ -0,0 +1,37 @@ +# +# Copyright (C) 2012 Jo-Philipp Wich +# +# This is free software, licensed under the GNU General Public License v2. +# See /LICENSE for more information. +# + +include $(TOPDIR)/rules.mk + +PKG_NAME:=query3g +PKG_RELEASE:=2 + +include $(INCLUDE_DIR)/package.mk + +define Package/query3g + SECTION:=utils + CATEGORY:=Utilities + DEPENDS:=+usbreset +comgt + TITLE:=Utility to find 3G dongle information + MAINTAINER:=Jo-Philipp Wich +endef + +define Package/query3g/description + This package contains the small query3g utility to find 3G dongle information. +endef + +define Build/Compile +endef + +define Package/query3g/install + $(INSTALL_DIR) $(1)/usr/bin + $(INSTALL_BIN) ./files/query3g.sh $(1)/usr/bin/query3g + $(INSTALL_DIR) $(1)/usr/share + $(INSTALL_DATA) ./files/query3g.gcom $(1)/usr/share/query3g.gcom +endef + +$(eval $(call BuildPackage,query3g)) diff --git a/package/query3g/files/query3g.gcom b/package/query3g/files/query3g.gcom new file mode 100644 index 000000000..f63207805 --- /dev/null +++ b/package/query3g/files/query3g.gcom @@ -0,0 +1,148 @@ +opengt + set com 115200n81 + set comecho off + set senddelay 0.02 + waitquiet 0.2 0.2 + + send "AT\^CURC=0^m" + waitfor 5 "OK","ERROR" + + let $c="AT+CPIN?^m" + let $r="+CPIN" + gosub readatcmd + + let $c="AT+CSQ^m" + let $r="+CSQ" + gosub readatcmd + + let $c="ATE1; +CGMI^m" + gosub readatcmdnr + let $v=$s + + if $toupper($mid($v,0,3)) = "ZTE" goto zte + if $toupper($mid($v,0,3)) = "OPT" goto option + if $toupper($mid($v,0,3)) = "SIE" goto sierra + if $toupper($mid($v,0,3)) = "NOV" goto novatel + if $toupper($mid($v,0,3)) = "HUA" goto huawei + if $toupper($mid($v,0,3)) = "VOD" goto vodafone + if $toupper($mid($v,0,3)) = "NOK" goto vodafone + goto generic + +:vodafone + let $c="AT%NWSTATE=1^m" + let $r="%NWSTATE" + gosub readatcmd + goto next + +:novatel + let $c="AT$CNTI=0^m" + let $r="$CNTI" + gosub readatcmd + goto next + +:sierra + let $c="AT*CNTI=0^m" + let $r="*CNTI" + gosub readatcmd + goto next + +:option + let $c="AT_OCTI?^m" + let $r="_OCTI" + gosub readatcmd + + let $c="AT_OWCTI?^m" + let $r="_OWCTI" + gosub readatcmd + goto next + +:zte + let $c="AT+COPS?^m" + let $r="+COPS" + gosub readatcmd + + let $c="AT+ZPAS?^m" + let $r="+ZPAS" + gosub readatcmd + goto next1 + +:huawei + let $c="AT\^SYSINFOEX^m" + let $r="\^SYSINFOEX" + gosub readatcmd + +:generic + let $c="AT\^SYSINFO^m" + let $r="\^SYSINFO" + gosub readatcmd + +:next + let $c="AT+COPS=3,2; +COPS?^m" + let $r="+COPS" + gosub readatcmd + +:next1 + let $c="AT+CREG=2; +CREG?^m" + let $r="+CREG" + gosub readatcmd + + let $c="AT+CGREG=2; +CGREG?^m" + let $r="+CGREG" + gosub readatcmd + + let $c="AT+CGEQNEG=1^m" + let $r="+CGEQNEG" + gosub readatcmd + + let $c="ATE1; +CGMM^m" + gosub readatcmdnr + print "\nDEVICE:",$v," ",$s,"\n" + + exit 0 + +:readatcmd + let i=5 + send $c +:loop + get 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 +:loop2 + if i = 0 return + let i=i-1 + sleep 0.25 + goto loop + +:readatcmdnr + let i=10 + send $c +:loop3 + get 1 "^m" $s + if len($s) < 2 goto loop5 + if $mid($s,1,2) = "ER" goto loop4 + if $mid($s,1,2) = "OK" goto loop5 + if $mid($s,1,2) = "AT" goto loop5 + if $mid($s,1,2) = "TE" goto loop5 + if $mid($s,1,1) = "+" goto loop5 + if $mid($s,1,1) = "\^" goto loop5 + let l=len($s) + let $s=$mid($s,1,l) + return + +:loop4 + let $s="" + return + +:loop5 + if i = 0 return + let i=i-1 + sleep 0.25 + goto loop3 diff --git a/package/query3g/files/query3g.sh b/package/query3g/files/query3g.sh new file mode 100644 index 000000000..b591d61a3 --- /dev/null +++ b/package/query3g/files/query3g.sh @@ -0,0 +1,42 @@ +#!/bin/sh + +reset=/usr/bin/usbreset +comgt=/usr/bin/gcom +script=/usr/share/query3g.gcom + +last_reset="x" + +wan_proto="$(uci -q get network.wan.proto)" + +if [ "$wan_proto" = "3g" ]; then + ifdown wan +fi + +for port in 0 1 2 3 4 5 6 7 8 9; do + for tty in $(find /sys/devices/ -name "ttyUSB$port" -type d | sort -u); do + [ -f "$tty/../../idProduct" ] || continue + + local dir="$(cd "$tty/../.."; pwd)" + local uid="$(basename "$dir")" + local dev="/dev/$(basename "$tty")" + local vid="$(cat "$tty/../../idVendor")" + local pid="$(cat "$tty/../../idProduct")" + + if [ "$last_reset" != "$vid:$pid" ]; then + last_reset="$vid:$pid" + $reset "$vid:$pid" >/dev/null + + local try=0 + while [ $((try++)) -lt 5 ] && [ ! -e "$dev" ]; do sleep 1; done + fi + + if $comgt -s "$script" -d "$dev" 2>/dev/null; then + echo "PORT:$dev" + echo "VID:$vid" + echo "PID:$pid" + echo "UID:$uid" + exit 0 + fi + done +done +exit 1 -- cgit v1.2.3