В связи с тем,что программы mdma,hsl,wlanexpert почему-то не видят порт модема из-под Wine,пришлось написать простой скрипт,показывающий уровень сигнала и номер базовой станции на которой зарегистрирован модем. Проверил на своем Huawei E150, работает,номер БС показывает в hex,после перевода в десятичный вид совпадает с номерами на карте сайта нетмонитор.ру
Переменной $modem надо присвоить имя порта через который ваш модем отвечает на команды.
В случае huawei портов аж три штуки,причем можно через один порт установить ppp соединение,а через другой отдавать команды прямо во время сеанса.
Почему-то из модема периодически читается "мусор" вместо ответов на команды,увидеть его можно раскомментировав строчку со словом Debug. Стабильность работы скрипта зависит от числа секунд в команде sleep(),похоже связано с быстродействием компьютера и самого модема,возможно придется подбирать. Слишком короткий интервал делать нет смысла так как в самом модеме значение RSSI обновляется в течении 3-5 секунд. Соответственно и подключенную к модему антенну надо поворачивать медленно чтобы модем успевал отслеживать изменение уровня сигнала. Сам я использую антенну из спутниковой тарелки и специального облучателя на частоту 2100мгц.==========================
#!/usr/bin/env perl
use strict;
use warnings;
my $modem = "/dev/ttyUSB2";
$SIG{ALRM} = sub {
close(MODEM);
die("timeout: no response from modem $modem\n");
};
open(MODEM, "+<", $modem) or die("can't open modem $modem");
print(MODEM "AT+CREG=2\n\r");
while (<MODEM>) {
# print("Debug: $_\n");
if (m/^\+CSQ:/)
{
my ($x, $s) = split(' ', $_);
my ($signal, $err) = split(',', $s);
print("RSSI: $signal \n");
}
if (m/^\+CREG:/)
{
my ($s1, $s2, $s3, $s4) = split(',', $_);
print("CellID: $s4 \n");
}
if (m/ERROR/)
{
print(MODEM "AT\n\r");
}
if (m/OK/)
{
alarm(15);
sleep(3);
print(MODEM "AT+CSQ;+CREG?\n\r");
}
}
==========================