NAME

Net::SMS::Mollie - Send SMS messages via the mollie.nl service

SYNOPSIS

  use strict;
  use Net::SMS::Mollie;

  my $mollie = new Net::SMS::Mollie;
     $mollie->login('username', 'p4ssw0rd');
     $mollie->recipient('0612345678');
     $mollie->send("I can send SMS!");

  if($mollie->is_success) {
     print "Successfully sent message to ".$mollie->successcount." number(s)!";
  } else {
     print "Something went horribly wrong!\n".
           "Error: ".$mollie->resultmessage." (".$mollie->resultcode.")";
  }

or, if you like one liners:

  perl -MNet::SMS::Mollie -e 'send_sms("username", "password", "recipient", "text", "originator")'

DESCRIPTION

"Net::SMS::Mollie" allows sending SMS messages via <http://www.mollie.nl/>

METHODS

new

"new" creates a new "Net::SMS::Mollie" object.

options

baseurl: Defaults to <https://secure.mollie.nl/xml/sms/>, but could be set to, for example, the non SSL URL <http://www.mollie.nl/xml/sms/>.
ua: Configure your own LWP::UserAgent object, or use our default one.
gateway: Defaults to gateway "1". For more information on the mollie.nl gateways, please read <http://www.mollie.nl/docs/help/?id=1>
originator: The sender of the SMS. Could be 14 digits or 11 characters. Defaults to "Mollie", so you most likely do want to override this default.
username: Your mollie.nl username
password: Your mollie.nl password
recipients: Takes an array of phonenumbers to send the message to.
message: The actual SMS text
type: Defaults to normaal, but could be set to normaal, wappush, vcard, flash, binary, or long
deliverydate: "optional" When do you want to send the SMS? Format: yyyymmddhhmmss
url: "optional" Only useful for the wappush type. Specify the URL of the wappush content.
udh: "optional" Only useful for the binary type. Specify the header of the SMS message.

All these options can be set at creation time, or be set later, like this:

  $mollie->username('my_username');
  $mollie->password('my_password');
  $mollie->type('wappush');
  $mollie->url('some_url');

Without an argument, the method will return its current value:

  my $username = $mollie->username;
  my $baseurl  = $mollie->baseurl;

Set the username and password in one go.

  $mollie->login('my_username', 'my_p4ssw0rd');

  # is basically a shortcut for

  $mollie->username('my_username');
  $mollie->password('my_p4ssw0rd');

Without arguments, it will return the array containing username, and password.

   my ($user, $pass) = $mollie->login;

recipient

Push numbers in the recipients array

  foreach(qw/1234567890 0987654321 1292054283/) {
     $mollie->recipient($_);
  }

Send the actual message. If this method is called with an argument, it's considered the message. Returns true if the sending was successful, and false when the sending failed (see resultcode and resultmessage).

is_success

Returns true when the last sending was successful and false when it failed.

successcount

Returns the amount of messages actually sent (could be useful with multiple recipients).

resultcode

Returns the resulting code, as provided by mollie.nl. See <http://www.mollie.nl/geavanceerd/sms/http/> for all possible codes.

When LWP::UserAgent reports an error, the resultcode will be set to "-1".

resultmessage

Returns the result message, as provided by mollie.nl, or LWP::UserAgent.

credits

Requires both username and password to be set, and returns the amount of remaining credits (with 4 decimals) or undef:

  if(my $credits = $mollie->credits) {
     print $credits." credits left!\n";
  } else {
     print $mollie->resultmessage." (".
           $mollie->resultcode.")\n";
  }

BUGS

Please report any bugs to <http://rt.cpan.org/Ticket/Create.html?Queue=Net-SMS-Mollie>

AUTHOR

M. Blom, <blom@cpan.org>, <http://menno.b10m.net/perl/>

COPYRIGHT

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.