Пример отправки СМС при помощи Perl | ePochta SMS
image image

Отправка СМС:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#!/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;

Получения статуса отправленной СМС (информация о статусе смс будет доступна спустя несколько минут после отправки):

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#!/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.myatompark.com/members/sms/xml.php',{ XML => $get_sms_status});
 
print $response->content;

Получение цены отправки:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#!/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;

Получение баланса:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/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;

vector
image

Нужна помощь?

Задайте вопрос специалисту технической поддержки