(AutoIt) Google Cloud SQL - Stop Database Instance

Demonstrates how to stop a Google Cloud SQL database instance.

For more information, see https://cloud.google.com/sql/docs/mysql/start-stop-restart-instance

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.

; In this example, Get Google Cloud SQL OAuth2 Access Token, 
; the service account access token was saved to a text file.  This example fetches the access token from the file..
$oSbToken = ObjCreate("Chilkat.StringBuilder")
$oSbToken.LoadFile("qa_data/tokens/google_cloud_sql_access_token.txt","utf-8")

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

; Implements the following CURL command:

; curl -X PATCH \
; -H "Authorization: Bearer "$(gcloud auth print-access-token) \
; -H "Content-Type: application/json; charset=utf-8" \
; -d '{
;   "settings": {
;     "activationPolicy": "NEVER" 
;   }
; }' \
; https://www.googleapis.com/sql/v1beta4/projects/project-id/instances/instance-id

; Use this online tool to generate code from sample JSON:
; Generate Code to Create JSON

; The following JSON is sent in the request body.

; {
;   "settings": {
;     "activationPolicy": "NEVER"
;   }
; }

$oJson = ObjCreate("Chilkat.JsonObject")
$oJson.UpdateString("settings.activationPolicy","NEVER")

; Causes the "Authorization: Bearer "$(gcloud auth print-access-token)" header to be added.
$oHttp.AuthToken = $oSbToken.GetAsString()

$oHttp.SetRequestHeader "Content-Type","application/json; charset=utf-8"

$oSbRequestBody = ObjCreate("Chilkat.StringBuilder")
$oJson.EmitSb($oSbRequestBody)

; Replace "project-id" with your actual Google project ID.
; Replace "instance-id" with your database instance ID, which is the name of your database.  (For example, when I created my test database I named it "chilkat", and therefore my instance-id is "chilkat".)
Local $oResp = $oHttp.PTextSb("PATCH","https://www.googleapis.com/sql/v1beta4/projects/project-id/instances/instance-id",$oSbRequestBody,"utf-8","application/json",False,False)
If ($oHttp.LastMethodSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

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

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

Local $iRespStatusCode = $oResp.StatusCode
ConsoleWrite("Response Status Code = " & $iRespStatusCode & @CRLF)
If ($iRespStatusCode = 401) Then
    ConsoleWrite("It may be that your access token expired." & @CRLF)
    ConsoleWrite("Try refreshing the access token by re-fetching it." & @CRLF)
EndIf

If ($iRespStatusCode >= 400) Then
    ConsoleWrite("Response Header:" & @CRLF)
    ConsoleWrite($oResp.Header & @CRLF)
    ConsoleWrite("Failed." & @CRLF)

    Exit
EndIf

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

; {
;   "kind": "sql#operation",
;   "targetLink": "https://www.googleapis.com/sql/v1beta4/projects/project-id/instances/instance-id",
;   "status": "PENDING",
;   "user": "user@example.com",
;   "insertTime": "2020-01-20T21:30:35.667Z",
;   "operationType": "UPDATE",
;   "name": "operation-id",
;   "targetId": "instance-id",
;   "selfLink": "https://www.googleapis.com/sql/v1beta4/projects/project-id/operations/operation-id",
;   "targetProject": "project-id"
; }

; 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 $sKind = $oJResp.StringOf("kind")
Local $sTargetLink = $oJResp.StringOf("targetLink")
Local $status = $oJResp.StringOf("status")
Local $sUser = $oJResp.StringOf("user")
Local $sInsertTime = $oJResp.StringOf("insertTime")
Local $sOperationType = $oJResp.StringOf("operationType")
Local $sName = $oJResp.StringOf("name")
Local $sTargetId = $oJResp.StringOf("targetId")
Local $selfLink = $oJResp.StringOf("selfLink")
Local $sTargetProject = $oJResp.StringOf("targetProject")