SMS::Send::AQL - SMS::Send driver to send messages via AQL (www.aql.com)

  use SMS::Send;

  # Create a sender
  my $sender = SMS::Send->new('AQL',
        _login    => 'your_aql_username',
        _password => 'your_aql_password',
        _sender   => 'sender number',
  );

  # Send a message
  my $sent = $sender->send_sms(
        text => 'This is a test message',
        to   => '+61 (4) 1234 5678',
  );

  if ( $sent ) {
        print "Message sent ok\n";
  } else {
        print "Failed to send message\n";
  }

package SMS::Send::AQL;

# $Id: AQL.pm 281 2008-03-09 01:54:50Z davidp $

use strict;
use warnings;
use SMS::AQL;
our $VERSION = '0.04';
use base 'SMS::Send::Driver';

sub new {

    my ($class, %args) = @_;

    my $self = bless { %args }, $class;
    
    # Previous versions of this module documented _username as the param name
    # for the username; unfortunately there's no "standard" for SMS::Send
    # drivers, but the general concensus seems to be to use _login, but we'll
    # continue to support _username too.
    if (!exists $args{_login} && exists $args{_username}) {
        $args{_login} = delete $args{_username};
    }
    
    if (grep { ! $args{$_} } qw(_login _password)) {
        die "_login (or _username) and _password required";
    }
    
    
    
    $self->{aql} = new SMS::AQL({
        username => $args{_login},
        password => $args{_password},
        options => {
            sender => $args{_sender} || 'SMS::AQL',
        },
    });
    
    return $self;

}

sub send_sms {

    my ($self, %args) = @_;
    
    # AQL's gateway won't accept numbers in the format +441234567890,
    # it wants to see 00441234567890 instead:
    $args{to} =~ s/^\+/00/;
    
    
    return $self->{aql}->send_sms(@args{ qw (to text) });

}

1;
__END__