Сообщение отправлено!
8 800 700-99-10
Позвоните мне
Оплатить Регистрация
Получи 15 дней теста бесплатно!

30 дней бесплатного тестирования. Для завершения регистрации введите Ваш E-mail

ПРИМЕР ИСПОЛЬЗОВАНИЯ REST ИНТЕРФЕЙСА НА ЯЗЫКЕ PERL

use strict;
use LWP::UserAgent;
use HTTPS::Request;

# отсутствующие библиотеки можно установить, используя CPAN
# подробнее о CPAN см. https://ru.wikipedia.org/wiki/CPAN
# пример: cpan LWP::UserAgent

sub gateRequest {
    my %fields = @_;
    my $params = '';
    my $method = '';
    foreach my $k (keys %fields){
        if ($k eq 'method') {
            $method = $fields{$k};
            next;
        }
        $params .= $params ne '' ? "&" : '';
        $params .= $k.'='.$fields{$k};
    }
    my $ua = LWP::UserAgent->new;
    my $req = HTTPS::Request->new(GET => 'https://gate.iqsms.ru/'.$method.'?'.$params);
    my $res = $ua->request($req);
    if ($res->is_success) {
        return $res->decoded_content;
    }
    return 'error '.$res->status_line;
}

# передача сообщения
print gateRequest(
        'method' => 'send',
        'login' => 'login',
        'password' => 'password',
        'phone' => '71234567890',
        'text' => 'text here',
        'sender' => 'TEST');

# проверка состояния отправленного сообщения
print gateRequest(
        'method' => 'status',
        'login' => 'login',
        'password' => 'password',
        'id' => '5000');


Список вариантов ответов от сервиса при передаче сообщения и приеме ответа находится здесь.
60 дней бесплатного тестирования
Для получения доступа к сервису введите свой номер телефона

Ваш номер уже зарегистрирован