Tcl
Tcl
Twilio List Log Messages
See more Twilio Examples
Fetch the log containing information about SMS messages previously sent (or failed to be sent).Chilkat Tcl Downloads
load ./chilkat.dll
set success 0
# 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