Пример работы с SMS шлюзом на языке Perl
Отправка смс
Получения статуса отправленной смс
Получение цены отправки
Получение баланса
Отправка смс:
#!/usr/bin/perl use LWP::UserAgent; my $ua = new LWP::UserAgent; my $login = ''; my $password = ''; my $send_sms = '<?xml version="1.0" encoding="UTF-8"?> <SMS> <operations> <operation>SEND</operation> </operations> <authentification> <username>'.$login.'</username> <password>'.$password.'</password> </authentification> <message> <sender>SMS</sender> <text>Test message [UTF-8]</text> </message> <numbers> <number messageID="msg11">380972920000</number> </numbers> </SMS>'; my $response = $ua->post('http://api.myatompark.com/members/sms/xml.php',{ XML => $send_sms}); print $response->content;
Получения статуса отправленной смс*:
#!/usr/bin/perl use LWP::UserAgent; my $ua = new LWP::UserAgent; my $login = ''; my $password = ''; my $get_sms_status = '<?xml version="1.0" encoding="UTF-8"?> <SMS> <operations> <operation>SEND</operation> </operations> <authentification> <username>'.$login.'</username> <password>'.$password.'</password> </authentification> <statistics> <messageid>msg11</messageid> </statistics> </SMS>'; my $response = $ua->post('http://api.myatompark.com/members/sms/xml.php',{ XML => $get_sms_status}); print $response->content;
* Информация о статусе смс будет доступна спустя несколько минут после отправки
Получение цены отправки:
#!/usr/bin/perl use LWP::UserAgent; my $ua = new LWP::UserAgent; my $login = ''; my $password = ''; my $get_send_price = '<?xml version="1.0" encoding="UTF-8"?> <SMS> <operations> <operation>GETPRICE</operation> </operations> <authentification> <username>'.$login.'</username> <password>'.$password.'</password> </authentification> <message> <sender>SMS</sender> <text>Test message [UTF-8]</text> </message> <numbers> <number messageID="msg11">380972920000</number> </numbers> </SMS>'; my $response = $ua->post('http://api.myatompark.com/members/sms/xml.php',{ XML => $get_send_price}); print $response->content;
Получение баланса
#!/usr/bin/perl use LWP::UserAgent; my $ua = new LWP::UserAgent; my $login = ''; my $password = ''; my $get_balance = '<?xml version="1.0" encoding="UTF-8"?> <SMS> <operations> <operation>BALANCE</operation> </operations> <authentification> <username>'.$login.'</username> <password>'.$password.'</password> </authentification> </SMS>'; my $response = $ua->post('http://api.myatompark.com/members/sms/xml.php',{ XML => $get_balance}); print $response->content;
Есть вопрос?
- 8 (800) 555-09-63
- Бесплатно по России
Вход для клиентов
Новости:
- 2020-12-30
- Оператор Мегафон повышает стоимость отправки сообщений с 1 января 2021 года
- 2020-12-01
- Восстановлен маршрут с фиксированным именем отправителя на оператор Билайн
- 2020-11-27
- Внимание! С 1 декабря 2020 года меняется цена на отправку СМС в сети Билайн
- 2020-11-23
- ePochta объявляет старт Черной Пятницы: Спеццена на рассылку в WhatsApp
- 2020-11-18
- С 1 декабря 2020 года оператор МТС повышает стоимость СМС