(AutoIt) CallRail API - Retrieving a Single Call

Returns a single call object associated with the target account.

For more information, see https://apidocs.callrail.com/#retrieving-a-single-call

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

$oHttp = ObjCreate("Chilkat.Http")
Local $bSuccess

; Implements the following CURL command:

; curl -H "Authorization: Token token={api_token}" \
;      -X GET \
;      "https://api.callrail.com/v3/a/{account_id}/calls/{call_id}.json?fields=keywords_spotted"

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

$oHttp.SetRequestHeader "Authorization","Token token={api_token}"

$oSbResponseBody = ObjCreate("Chilkat.StringBuilder")
$bSuccess = $oHttp.QuickGetSb("https://api.callrail.com/v3/a/{account_id}/calls/{call_id}.json?fields=keywords_spotted",$oSbResponseBody)
If ($bSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

$oJResp = ObjCreate("Chilkat.JsonObject")
$oJResp.LoadSb($oSbResponseBody)
$oJResp.EmitCompact = False

ConsoleWrite("Response Body:" & @CRLF)
ConsoleWrite($oJResp.Emit() & @CRLF)

Local $iRespStatusCode = $oHttp.LastStatus
ConsoleWrite("Response Status Code = " & $iRespStatusCode & @CRLF)
If ($iRespStatusCode >= 400) Then
    ConsoleWrite("Response Header:" & @CRLF)
    ConsoleWrite($oHttp.LastHeader & @CRLF)
    ConsoleWrite("Failed." & @CRLF)
    Exit
EndIf

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

; {
;   "answered": false,
;   "business_phone_number": null,
;   "customer_city": "New York City",
;   "customer_country": "US",
;   "customer_name": "Jimmy Pesto, Sr.",
;   "customer_phone_number": "+13036231131",
;   "customer_state": "NY",
;   "direction": "inbound",
;   "duration": 4,
;   "id": "CAL8154748ae6bd4e278a7cddd38a662f4f",
;   "recording": "https://api.callrail.com/v3/a/227799611/calls/111222333/recording.json",
;   "recording_duration": "27",
;   "recording_player": "https://app.callrail.com/calls/111222333/recording?access_key=3b91eb7f7cc08a4d01ed",
;   "start_time": "2017-01-24T11:27:48.119-05:00",
;   "tracking_phone_number": "+13038163491",
;   "voicemail": false,
;   "agent_email": "gil@televised.com",
;   "keywords_spotted": [
;     {
;       "keyword": "test phrase one",
;       "locations": [
;         {
;           "speaker": "caller",
;           "start": 7.71
;         },
;         {
;           "speaker": "agent",
;           "start": 13.38
;         },
;         {
;           "speaker": "caller",
;           "start": 17.96
;         }
;       ]
;     },
;     {
;       "keyword": "test phrase two",
;       "locations": [
;         {
;           "speaker": "caller",
;           "start": 8.44
;         }
;       ]
;     }
;   ]
; }

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

Local $sKeyword
Local $iJ
Local $iCount_j
Local $speaker
Local $start

Local $bAnswered = $oJResp.BoolOf("answered")
Local $sBusiness_phone_number = $oJResp.StringOf("business_phone_number")
Local $sCustomer_city = $oJResp.StringOf("customer_city")
Local $sCustomer_country = $oJResp.StringOf("customer_country")
Local $sCustomer_name = $oJResp.StringOf("customer_name")
Local $sCustomer_phone_number = $oJResp.StringOf("customer_phone_number")
Local $sCustomer_state = $oJResp.StringOf("customer_state")
Local $sDirection = $oJResp.StringOf("direction")
Local $iDuration = $oJResp.IntOf("duration")
Local $sId = $oJResp.StringOf("id")
Local $sRecording = $oJResp.StringOf("recording")
Local $sRecording_duration = $oJResp.StringOf("recording_duration")
Local $sRecording_player = $oJResp.StringOf("recording_player")
Local $start_time = $oJResp.StringOf("start_time")
Local $sTracking_phone_number = $oJResp.StringOf("tracking_phone_number")
Local $bVoicemail = $oJResp.BoolOf("voicemail")
Local $sAgent_email = $oJResp.StringOf("agent_email")
Local $i = 0
Local $iCount_i = $oJResp.SizeOfArray("keywords_spotted")
While $i < $iCount_i
    $oJResp.I = $i
    $sKeyword = $oJResp.StringOf("keywords_spotted[i].keyword")
    $iJ = 0
    $iCount_j = $oJResp.SizeOfArray("keywords_spotted[i].locations")
    While $iJ < $iCount_j
        $oJResp.J = $iJ
        $speaker = $oJResp.StringOf("keywords_spotted[i].locations[j].speaker")
        $start = $oJResp.StringOf("keywords_spotted[i].locations[j].start")
        $iJ = $iJ + 1
    Wend
    $i = $i + 1
Wend