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

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set req [new_CkHttpRequest]

CkHttpRequest_put_Path $req "/bulksms/bulksms"
CkHttpRequest_AddParam $req "username" "YOUR_USERNAME"
CkHttpRequest_AddParam $req "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) 
CkHttpRequest_AddParam $req "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.
CkHttpRequest_AddParam $req "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 senders address 
# when the message is displayed on their cell phone, please prefix the plus sign 
# to your senders address while submitting the message 
CkHttpRequest_AddParam $req "source" "+14155558999"

# Add the message itself.  (No URL encoding needed.)
CkHttpRequest_AddParam $req "message" "Test Message"

set http [new_CkHttp]

# resp is a CkHttpResponse
set resp [CkHttp_PostUrlEncoded $http "http://api.rmlconnect.net/bulksms/bulksms" $req]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttpRequest $req
    delete_CkHttp $http
    exit
}

# Examine the response status code and the response body:
puts "response status code = [CkHttpResponse_get_StatusCode $resp]"
puts "response body:"
puts [CkHttpResponse_bodyStr $resp]

delete_CkHttpResponse $resp


delete_CkHttpRequest $req
delete_CkHttp $http