(Perl) Send SMS Messages via Route Mobile's SMSPlus REST API

Demonstrates how to use the Route Mobile SMSPLUS Bulk HTTP API.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

$success = 0;

# This requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$req = chilkat::CkHttpRequest->new();

$req->put_Path("/bulksms/bulksms");
$req->AddParam("username","YOUR_USERNAME");
$req->AddParam("password","YOUR_PASSWORD");

# Indicate the type of message. 
# Values for type include: 
# 0: Plain text (GSM 3.38 Character encoding) 
# 1: Flash (GSM 3.38 Character encoding)  
# 2: Unicode 
# 3: Reserved  
# 4: WAP Push 
# 5: Plain text (ISO-8859-1 Character encoding)  
# 6: Unicode Flash 
# 7: Flash (ISO-8859-1 Character encoding) 
$req->AddParam("type","0");

# destination is the Mobile number to which the message is to be sent 
# (may or may not include a plus [+] sign). 
# Multiple mobile numbers can be separated by commas (,)
# No need to URL encode strings passed to AddParam. 
# Chilkat will automatically URL encode when the request is sent.
$req->AddParam("destination","+14155551234");

# Specify the source address that should appear in the message.
# Max Length of 18 if numeric.
# Max Length of 11 if alphanumeric. To prefix the plus sign (+) to the sender�s address 
# when the message is displayed on their cell phone, please prefix the plus sign 
# to your sender�s address while submitting the message 
$req->AddParam("source","+14155558999");

# Add the message itself.  (No URL encoding needed.)
$req->AddParam("message","Test Message");

$http = chilkat::CkHttp->new();
$req->put_HttpVerb("POST");
$req->put_ContentType("application/x-www-form-urlencoded");

$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpReq("http://api.rmlconnect.net/bulksms/bulksms",$req,$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# Examine the response status code and the response body:
print "response status code = " . $resp->get_StatusCode() . "\r\n";
print "response body:" . "\r\n";
print $resp->bodyStr() . "\r\n";