/uk/sms-rozsilka-servis/perl-shlyuz/

Відправка смс
Отримання статусу надісланого смс повідомлення
Отримання вартості відправки
Отримання балансу

Відправка смс:

#!/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; 
З'явилася необхідність розіслати одне SMS повідомлення 2000 людей. В інтернеті покопався, сервісів подібних дуже багато. Тому що вибрати не знав. Хотілося по-дешевше, і щоб повідомлення до всіх доходили. Зупинив свій вибір на ePochta. Дуже раджу. Повідомлення доходять моментально. Є можливість перегляду звітів. Все чітко і швидко. Читати далі »
Костянтин
Молодці!!! Так тримати ;) Читати далі »
Бак Дмитро
ТОВ ЛОЙКО УКРАЇНА
Спробуйте ePochta SMS безкоштовно вже сьогодні!

 

Активуйте свій аккаунт і отримайте 10 безкоштовних СМС.