From 667fbb8151c7348283985f28c43aeb848f948350 Mon Sep 17 00:00:00 2001 From: Kirill Lukonin Date: Fri, 20 Mar 2020 14:08:52 +0500 Subject: [PATCH] comgt: add new script to send ussd request and get the answer MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit New script for comgt. Should help to fetch balance or any additional information with USSD. This script uses the standard AT command which should be supported by all modems. Run-tested on: Mikrotik wAP LTE KIT Signed-off-by: Kirill Lukonin [fixed from/sob] Signed-off-by: Petr Štetiar --- package/network/utils/comgt/files/ussd.gcom | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 package/network/utils/comgt/files/ussd.gcom diff --git a/package/network/utils/comgt/files/ussd.gcom b/package/network/utils/comgt/files/ussd.gcom new file mode 100644 index 0000000000..c5be80b2d7 --- /dev/null +++ b/package/network/utils/comgt/files/ussd.gcom @@ -0,0 +1,21 @@ +opengt + set com 115200n81 + set comecho off + set senddelay 0.02 + waitquiet 0.2 0.2 + flash 0.1 + +:start + send "AT+CUSD=1," + send $env("ussd") + send ",15" + send "^m" + waitfor 120 "+CUSD:" + if % = -1 goto timeout + get 1 "^m" $s + print $s + exit 0 + +:timeout + print "ERROR: no USSD response, timeout.\n" + exit 1