turbosms

TurboSMS SOAP api lib for perl.

Dependencies:

SOAP::Lite, HTTP::Cookies

Usage:

Make sure that you enabled SOAP api usage in gateway connection options.

use strict;
no warnings;
use feature 'say';
use TurboSMS;

my $obj = TurboSMS->new(login => 'mylogin', password => 'mypassword');
#Get balance
say $obj->GetBalance;

#Send message(s)
my @status_id = $obj->SendSMS(
		  sender =>'Larry Wall',
		  destination => '+380123456789,+380912345678',
		  text => 'use perl or die!',
		  wappush => 'http://example.com' #optional wap push
	  	 );
#Get messages states
foreach my $id (@status_id){
 say "ID: $id, Status: ".$obj->GetStatus($id);
}