/ru/servis-sms-rassylok/shlyuz-perl/

Пример работы с 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.atompark.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>GETSTATUS</operation>	
	</operations>	
	<authentification>	
	<username>'.$login.'</username>	
	<password>'.$password.'</password>	
	</authentification>	
	<statistics>		
	<messageid>msg11</messageid>	
	</statistics>		
	</SMS>';	
	 	
my $response = $ua->post('http://api.atompark.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.atompark.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.atompark.com/members/sms/xml.php',{ XML => $get_balance});

print $response->content; 
С ePochta SMS работаем не так уже давно, но никаких вопросов не возникало. Единственным недостатком в начале нашей совместной работы было отсутствие экспорта отчёта по доставке. Очень оперативно среагировали на замечания, спасибо! Это большой плюс – взаимопонимание персонала сервиса с клиентом. Так держать! Ждём от вашей компании новых услуг по мобильному маркетингу и не только! Читать далее »
Наталия, маркетолог
Очень удобный сервис для работы с клиентской базой. В частности мы оповещаем держателей дисконтных карт о новых продуктах компании, а так же акциях. Цены и качество сервиса радуют. Читать далее »
Роман
Попробуйте ePochta SMS бесплатно уже сегодня!

 

Активируйте свой аккаунт и получите 10 бесплатных СМС

Нажмите кнопку "Скачать" и затем "Сохранить" в диалоговом окне. Загрузка произойдет автоматически