NAME

WWW::TextMarks - Provides access to the TextMarks SMS Service V2 API

SYNOPSIS

  use WWW::TextMarks;
  my $tm = WWW::TextMarks->new(
    apik => 'example_com_12345678',
    user => '5556781234',
    pass => 'y0ur$ekretPassword',
    tm   => 'yourtextmark',
  );
  my $res = $tm->send('5559994321', 'Hey, pick up your dry cleaning.');
  if ($res->{success})
  {
    print "Yippie.\n";
  }
  else
  {
    print "Error: $res->{error}\n";
  }

DESCRIPTION

WWW::TextMarks provides access to the TextMarks SMS Service V2 API.

Currently, it only allows you to send text messages to individual subscribers. Eventually, it'll also allow you to maintain your subscriber list and perform the full set of tasks made available by the TextMarks API.

Patches are welcome in case you get to it before I do. :-)

METHODS

new

See SYNOPSIS above for an example.

Required: apik, user, pass, tm. Optional: url

Setting the url is not recommended unless the embedded URL in this module fails to work properly or if you require an alternate URL provided by TextMarks.

The apik is created by registering for an API key at: http://www.textmarks.com/dev/api/reg/?ref=devapi

The user and pass is your TextMarks website login username and password. Your username is most likely your cell phone number.

send

See SYNOPSIS above for an example.

The first argument is the SMS recipient's phone number. The second argument is the message to send. There are no other arguments.

If you wish to send to many recipients, just call send multiple times, once per recipient.

COPYRIGHT AND LICENSE

Copyright (C) 2009 by Dusty Wilson, <dusty@megagram.com>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.0 or, at your option, any later version of Perl 5 you may have available.