menu
SMS gateway usage example for Perl
Send sms:
#!/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;
1
3
4
6
7
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
27
29
Get a status of sent sms*:
#!/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.atompark.com/members/sms/xml.php',{ XML => $get_sms_status});
print $response->content;
1
3
4
6
7
9
10
11
12
13
14
15
16
17
18
19
20
21
23
25
* The sms status information will be available in a few minutes
Get a price of sms:
#!/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;
1
3
4
6
7
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
27
29
Get a current balance
#!/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;
1
3
4
6
7
9
10
11
12
13
14
15
16
17
18
20
22
Other examples:
SMS gateway usage example for PHP
SMS gateway usage example for C#
SMS gateway usage example for Java