NAME
Net::SMS::Mach - Send SMS messages via the Mach HTTP API
VERSION
version 0.02
SYNOPSIS
# Create a testing sender
my
$sms
= Net::SMS::Mach->new(
userid
=>
'123456'
,
password
=>
'testpass'
);
# Send a message
my
(
$sent
,
$status
) =
$sms
->send_sms(
message
=>
"All your base are belong to us"
,
number
=>
'1234567890'
,
sender
=>
'+441234567890'
,
);
$sent
will contain a true / false
if
the sending worked,
$status
will contain the status message from the provider.
# If you just want a true / false if it workes, use :
my
$sent
=
$sms
->send_sms(
message
=>
"All your base are belong to us"
,
number
=>
'1234567890'
,
);
# If your message is utf8 encoded, or you are unsure if it's iso-8859-1,
# use the encode flag to get the message UCS encoded.
my
(
$sent
,
$status
,
$desc
) =
$sms
->send_sms(
message
=>
"All your base are belong to us"
,
number
=>
'1234567890'
,
encode
=> 1,
);
if
(
$sent
) {
# Success, message sent
}
else
{
# Something failed
warn
(
"Failed : $status"
);
}
DESCRIPTION
Perl module to send SMS messages through the HTTP API provided by Mach (mach.com).
METHODS
new
new( userid => '123456', password => 'testpass' )
Nothing fancy. You need to supply your username and password in the constructor, or it will complain loudly.
send_sms
send_sms(number => $phone_number, message => $message, encode => 0, backup_server => 1)
Uses the API to send a message given in $message
to the phone number given in $phone_number
.
Phone number should be given with only digits, or with a "+" prefix.
Returns a true / false value and a status message. The message is "success" if the server has accepted your query. This does not mean that the message has been delivered.
SEE ALSO
Mach website, http://www.mach.com/
AUTHOR
Terje Kristensen <terjek@opera.com>
COPYRIGHT AND LICENSE
This software is Copyright (c) 2011 by Opera Software ASA.
This is free software, licensed under:
The (three-clause) BSD License