SMS::Send::Clickatell - SMS::Send Clickatell Driver

  # Create a testing sender
  my $send = SMS::Send->new( 'Clickatell' );

  # Send a message
  $send->send_sms(
  	text => 'Hi there',
  	to   => '+447700900999',
  	);

    perldoc SMS::Send::Clickatell

package SMS::Send::Clickatell;

use warnings;
use strict;

our $VERSION = '0.02';

use base 'SMS::Send::Driver';
use HTTP::Request::Common qw(POST);
#use Data::Dumper;

require LWP::UserAgent;

our $http_protocol;

#####################################################################
# Constructor

sub new {
    my $class = shift;
    my %args = @_;
    my $ua = LWP::UserAgent->new;

    eval {
	require Crypt::SSLeay;
	$http_protocol = 'https';
    } unless $http_protocol;
    

    # Create the object
    my $self = bless {
	ua => $ua,
	http_protocol => ( $http_protocol ||= 'http'),
	verbose => $args{_verbose},
	messages => [],
	clickatell_account => [
	    api_id => $args{_api_id},
	    user =>  $args{_user},
	    password => $args{_password},
	    ],
    }, $class;

    $self;
}

sub send_sms {
    my $self = shift;
    my $http_protocol = $self->{http_protocol};

    my $ok;

    my %message = @_;
    my $to = $message{to};
    $to =~ s/^(\+|00)// or 
	die "SMS::Send should have ensured we had an international number";
    $to =~ tr/ ()//d;
    my $req = POST "$http_protocol://api.clickatell.com/http/sendmsg",
    [ %{ { 
	@{ $self->{clickatell_account}},
	to => $to,
	# Allow up to 3 SMS message fragments to be used
	concat => 3,
	text => $message{text},
	$message{_from} ? (from => $message{_from}) : (),
	} } ];
    
    for ( 1,2 ) {
	my $res = $self->{ua}->request($req);
	
	if ( $self->{verbose} ) {
	    print "Status: ",$res->status_line,"\n";
	    print $res->headers_as_string,"\n",$res->content,"\n";
	}
	
	$ok = $res->is_success;
	
	# Retry proxy errors since the UHB proxy seems to generate a few
	# isolated errors at random.
	last unless $res->code == 502;
    }
    $ok;
}

1; # End of SMS::Send::Clickatell