В общем KNemo - хороший вариант. Можно задавать периоды тарификации, периоды льготного трафика. Посмотрим как он будет считать его.

Остался только один вопрос - как измерить уровень сигнала?

Нет, пока не знаю как скачать. Пробовал с rpmfind - не получилось, отложил.

Несмотря на то, что скрипт с хабрахабра, в части команд USSD, не заработал, та часть которая отвечает за уровень сигнала работает! Слегка изменив скрипт сделал это:

#!/usr/bin/python
import binascii
import sys
import time
f = open("/dev/ttyUSB2", "r+")
data=''
while 1:
    print>>f, "AT+CSQ\r\n"
    while data[:5]!="+CSQ:":
        data=f.readline()
    data = data[6:-4]
    sig_str = -113+int(data)*2
    sig_per = int(data)*100 / 31
    print unicode(sig_str)+"dBm / "+unicode(sig_per)+"%"
        time.sleep(1)
f.close

Вот только выход из цикла по нажатию клавиши было лень искать, выхожу из скрипта по Ctrl+C

Так же подключившись через миником к /dev/ttyUSB2 в окне терминала постоянно идёт вывод чего-то типа https://dev.tzi.org/retrospectiva/proje … format=txt
Впрочем, смотрю скриптов на эту тему есть. Буду разбираться.

Да попробовал. Встал криво, но встал. Уровень сигнала и скорости текущие показывает. Но соединение портит. Сам его установить не может, так что приходилось сначала запускать его, а потом устанавливать соединение вручную. СМС отправить вроде-как удалось, но ответная СМС-ка мне не пришла. Так что пользуюсь пока своим скриптом.

Кстати, отправить команду на остаток квоты удалось. И для балланса тоже. Отправлять надо не "*100#", а преобразованное значение ("AA180C3602") как в примере

perl -e '@a=split(//,unpack("b*", "*100#")); for ($i=7; $i < $#a; $i+=8) { $a[$i]="" } print uc(unpack("H*", pack("b*", join("", @a))))'

И ответ пришёл: 0412043004480430002004370430044F0432043A04300020043F04400438043D044F04420430002E0020041E043604380434043004390442043500200053004D00530020044100200440043504370443043B044C044204300442043E043C002E
Вот только расшифровать его не получается, подставляя значение в пример получил на выходе мусор.

perl -e '@a=split(//,unpack("b*", pack("H*","0412043004480430002004370430044F0432043A04300020043F04400438043D044F04420430002E0020041E043604380434043004390442043500200053004D00530020044100200440043504370443043B044C044204300442043E043C002E"))); for ($i=6; $i < $#a; $i+=7) {$a[$i].="0" } print pack("b*", join("", @a)).""'

А введя

perl -e '@a=split(//,unpack("b*", pack("H*","AA180C3602"))); for ($i=6; $i < $#a; $i+=7) {$a[$i].="0" } print pack("b*", join("", @a)).""'

- получил правильное значение ("*100#").