SMS gateway usage example for Perl

    Send sms

    Getting status of sent sms

    Getting a price of the sms

    Getting current balance



    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;

    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; * 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;

    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;

    Sing up and start sending SMS

    Get 10 free SMS to test our service!
    Get Started

    Top up account and start sending SMS from your Member Area right now

    Top up account
    Offer expires soon:
    days
    hrs
    mins
    secs
    50CYBER22
    Copied
    Go to cart
    Get my coupon