(Tcl) Twilio List Log Messages

Fetch the log containing information about SMS messages previously sent (or failed to be sent).

For more information, see https://www.twilio.com/docs/sms/api/message-resource?code-sample=code-read-list-all-messages&code-language=curl&code-sdk-version=json

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

# Implements the following CURL command:

# curl -X GET 'https://api.twilio.com/2010-04-01/Accounts/TWILIO_ACCOUNT_SID/Messages.json?PageSize=20' \
# -u TWILIO_ACCOUNT_SID:TWILIO_AUTH_TOKEN

# Use the following online tool to generate HTTP code from a CURL command
# Convert a cURL Command to HTTP Source Code

CkHttp_put_Login $http "TWILIO_ACCOUNT_SID"
CkHttp_put_Password $http "TWILIO_AUTH_TOKEN"

set sbResponseBody [new_CkStringBuilder]

set success [CkHttp_QuickGetSb $http "https://api.twilio.com/2010-04-01/Accounts/TWILIO_ACCOUNT_SID/Messages.json?PageSize=20" $sbResponseBody]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkStringBuilder $sbResponseBody
    exit
}

set json [new_CkJsonObject]

CkJsonObject_LoadSb $json $sbResponseBody
CkJsonObject_put_EmitCompact $json 0

puts "Response Body:"
puts [CkJsonObject_emit $json]

set respStatusCode [CkHttp_get_LastStatus $http]
puts "Response Status Code = $respStatusCode"
if {$respStatusCode >= 400} then {
    puts "Response Header:"
    puts [CkHttp_lastHeader $http]
    puts "Failed."
    delete_CkHttp $http
    delete_CkStringBuilder $sbResponseBody
    delete_CkJsonObject $json
    exit
}

# Sample JSON response:
# (Sample code for parsing the JSON response is shown below)

# {
#   "end": 1,
#   "first_page_uri": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages.json?To=%2B123456789&From=%2B987654321&DateSent%3E=2008-01-02&PageSize=2&Page=0",
#   "next_page_uri": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages.json?To=%2B123456789&From=%2B987654321&DateSent%3E=2008-01-02&PageSize=2&Page=1&PageToken=PAMMc26223853f8c46b4ab7dfaa6abba0a26",
#   "page": 0,
#   "page_size": 2,
#   "previous_page_uri": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages.json?To=%2B123456789&From=%2B987654321&DateSent%3E=2008-01-02&PageSize=2&Page=0",
#   "messages": [
#     {
#       "account_sid": "ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",
#       "api_version": "2010-04-01",
#       "body": "testing",
#       "date_created": "Fri, 24 May 2019 17:44:46 +0000",
#       "date_sent": "Fri, 24 May 2019 17:44:50 +0000",
#       "date_updated": "Fri, 24 May 2019 17:44:50 +0000",
#       "direction": "outbound-api",
#       "error_code": null,
#       "error_message": null,
#       "from": "+12019235161",
#       "messaging_service_sid": null,
#       "num_media": "0",
#       "num_segments": "1",
#       "price": "-0.00750",
#       "price_unit": "USD",
#       "sid": "SMded05904ccb347238880ca9264e8fe1c",
#       "status": "sent",
#       "subresource_uris": {
#         "media": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages/SMded05904ccb347238880ca9264e8fe1c/Media.json",
#         "feedback": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages/SMded05904ccb347238880ca9264e8fe1c/Feedback.json"
#       },
#       "to": "+18182008801",
#       "uri": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages/SMded05904ccb347238880ca9264e8fe1c.json"
#     },
#     {
#       "account_sid": "ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",
#       "api_version": "2010-04-01",
#       "body": "look mom I have media!",
#       "date_created": "Fri, 24 May 2019 17:44:46 +0000",
#       "date_sent": "Fri, 24 May 2019 17:44:49 +0000",
#       "date_updated": "Fri, 24 May 2019 17:44:49 +0000",
#       "direction": "inbound",
#       "error_code": 30004,
#       "error_message": "Message blocked",
#       "from": "+12019235161",
#       "messaging_service_sid": null,
#       "num_media": "3",
#       "num_segments": "1",
#       "price": "-0.00750",
#       "price_unit": "USD",
#       "sid": "MMc26223853f8c46b4ab7dfaa6abba0a26",
#       "status": "received",
#       "subresource_uris": {
#         "media": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages/MMc26223853f8c46b4ab7dfaa6abba0a26/Media.json",
#         "feedback": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages/MMc26223853f8c46b4ab7dfaa6abba0a26/Feedback.json"
#       },
#       "to": "+18182008801",
#       "uri": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages/MMc26223853f8c46b4ab7dfaa6abba0a26.json"
#     }
#   ],
#   "start": 0,
#   "uri": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages.json?To=%2B123456789&From=%2B987654321&DateSent%3E=2008-01-02&PageSize=2&Page=0"
# }

# Sample code for parsing the JSON response...
# Use the following online tool to generate parsing code from sample JSON:
# Generate Parsing Code from JSON

set end [CkJsonObject_IntOf $json "end"]
set first_page_uri [CkJsonObject_stringOf $json "first_page_uri"]
set next_page_uri [CkJsonObject_stringOf $json "next_page_uri"]
set page [CkJsonObject_IntOf $json "page"]
set page_size [CkJsonObject_IntOf $json "page_size"]
set previous_page_uri [CkJsonObject_stringOf $json "previous_page_uri"]
set start [CkJsonObject_IntOf $json "start"]
set uri [CkJsonObject_stringOf $json "uri"]
set i 0
set count_i [CkJsonObject_SizeOfArray $json "messages"]
while {$i < $count_i} {
    CkJsonObject_put_I $json $i
    set account_sid [CkJsonObject_stringOf $json "messages[i].account_sid"]
    set api_version [CkJsonObject_stringOf $json "messages[i].api_version"]
    set body [CkJsonObject_stringOf $json "messages[i].body"]
    set date_created [CkJsonObject_stringOf $json "messages[i].date_created"]
    set date_sent [CkJsonObject_stringOf $json "messages[i].date_sent"]
    set date_updated [CkJsonObject_stringOf $json "messages[i].date_updated"]
    set direction [CkJsonObject_stringOf $json "messages[i].direction"]
    set error_code [CkJsonObject_stringOf $json "messages[i].error_code"]
    set error_message [CkJsonObject_stringOf $json "messages[i].error_message"]
    set from [CkJsonObject_stringOf $json "messages[i].from"]
    set messaging_service_sid [CkJsonObject_stringOf $json "messages[i].messaging_service_sid"]
    set num_media [CkJsonObject_stringOf $json "messages[i].num_media"]
    set num_segments [CkJsonObject_stringOf $json "messages[i].num_segments"]
    set price [CkJsonObject_stringOf $json "messages[i].price"]
    set price_unit [CkJsonObject_stringOf $json "messages[i].price_unit"]
    set sid [CkJsonObject_stringOf $json "messages[i].sid"]
    set status [CkJsonObject_stringOf $json "messages[i].status"]
    set subresource_urisMedia [CkJsonObject_stringOf $json "messages[i].subresource_uris.media"]
    set subresource_urisFeedback [CkJsonObject_stringOf $json "messages[i].subresource_uris.feedback"]
    set v_to [CkJsonObject_stringOf $json "messages[i].to"]
    set uri [CkJsonObject_stringOf $json "messages[i].uri"]
    set i [expr $i + 1]
}

delete_CkHttp $http
delete_CkStringBuilder $sbResponseBody
delete_CkJsonObject $json