(AutoIt) Firebase PUT - Writing Data

Demonstrates how to PUT new data to a Firebase JSON database. The data used in this example is at Chilkat Firebase Pigs Database, and is shown here:

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

; Demonstrates how to PUT new data to a Firebase JSON database.

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

; This example assumes a JWT authentication token, if required, has been previously obtained.
; See Get Firebase Access Token from JSON Service Account Private Key for sample code.

; Load the previously obtained Firebase access token into a string.
$oFac = ObjCreate("Chilkat.FileAccess")
Local $sAccessToken = $oFac.ReadEntireTextFile("qa_data/tokens/firebaseToken.txt","utf-8")
If ($oFac.LastMethodSuccess <> True) Then
    ConsoleWrite($oFac.LastErrorText & @CRLF)
    Exit
EndIf

$oRest = ObjCreate("Chilkat.Rest")

; Make the initial connection (without sending a request yet).
; Once connected, any number of requests may be sent.  It is not necessary to explicitly
; call Connect before each request.  
Local $bSuccess = $oRest.Connect("chilkat.firebaseio.com",443,True,True)
If ($bSuccess <> True) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

$oAuthGoogle = ObjCreate("Chilkat.AuthGoogle")
$oAuthGoogle.AccessToken = $sAccessToken
$oRest.SetAuthGoogle($oAuthGoogle)

; Chilkat's sample data (pig-rescue data) is publicly readable at: https://chilkat.firebaseio.com/.json
; This data is publicly readable, but not writable.  You'll need to 
; run against your own database..

; Generate a new push ID.
$oPrng = ObjCreate("Chilkat.Prng")
Local $sPushId = $oPrng.FirebasePushId()

; We're going to add a new pig with just the name.
$oPigRecord = ObjCreate("Chilkat.JsonObject")
$oPigRecord.AppendString("name","William")

$oPath = ObjCreate("Chilkat.StringBuilder")
$oPath.Append("/pig-rescue/animal/")
$oPath.Append($sPushId)
$oPath.Append(".json")

; The string content of the last arg passed is  {"name":"William"} 
Local $sJsonResponse = $oRest.FullRequestString("PUT",$oPath.GetAsString(),$oPigRecord.Emit())
If ($oRest.LastMethodSuccess <> True) Then
    ; Something happened in the communications (either no request was sent, or no response was received.
    ; (The Chilkat REST API also has lower-level methods where an app can send the request in one call,
    ; and then receive the response in another call.)
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

; Check the response status code.   A 200 response status indicates success.
If ($oRest.ResponseStatusCode <> 200) Then
    ConsoleWrite($oRest.ResponseStatusText & @CRLF)
    ConsoleWrite($sJsonResponse & @CRLF)
    ConsoleWrite("Failed." & @CRLF)
    Exit
EndIf

ConsoleWrite($sJsonResponse & @CRLF)
ConsoleWrite("Success." & @CRLF)

; Note: In many of the Chilkat examples, you may notice strange ways
; of doing something that should be simpler and shorter.  For example,
; building the path (above) could've been written differently,
; with some simple string concatenation.
; 
; The reason is that the Chilkat examples are written in a 
; proprietary "example code" scripting language,
; and then automatically generated to each of the different programming
; languages you see on example-code.com.  The code generation is
; limited in what it can do.  For example, string concatentation
; is not yet a feature of the "example code" scripting language (as of May 2016), 
; and therefore you won't see the use of a programming language's string
; concatentation operators in any example.  
;