(Tcl) Google Cloud SQL - Get Instance Information

Demonstrates how to get information about your Cloud SQL instances, including instance summary information, usage data, operation logs, and database logs.

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

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.

# 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..
set sbToken [new_CkStringBuilder]

CkStringBuilder_LoadFile $sbToken "qa_data/tokens/google_cloud_sql_access_token.txt" "utf-8"

set http [new_CkHttp]

# Implements the following CURL command:

# curl -X GET \
# -H "Authorization: Bearer access-token" \
# https://www.googleapis.com/sql/v1beta4/projects/project-id/instances/instance-id

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

# Causes the "Authorization: Bearer "$(gcloud auth print-access-token)" header to be added.
CkHttp_put_AuthToken $http [CkStringBuilder_getAsString $sbToken]

# 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".)
set sbResponseBody [new_CkStringBuilder]

set success [CkHttp_QuickGetSb $http "https://www.googleapis.com/sql/v1beta4/projects/project-id/instances/instance-id" $sbResponseBody]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkStringBuilder $sbToken
    delete_CkHttp $http
    delete_CkStringBuilder $sbResponseBody
    exit
}

set jResp [new_CkJsonObject]

CkJsonObject_LoadSb $jResp $sbResponseBody
CkJsonObject_put_EmitCompact $jResp 0

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

set respStatusCode [CkHttp_get_LastStatus $http]
puts "Response Status Code = $respStatusCode"
if {$respStatusCode == 401} then {
    puts "It may be that your access token expired."
    puts "Try refreshing the access token by re-fetching it."
}

if {$respStatusCode >= 400} then {
    puts "Response Header:"
    puts [CkHttp_lastHeader $http]
    puts "Failed."
    delete_CkStringBuilder $sbToken
    delete_CkHttp $http
    delete_CkStringBuilder $sbResponseBody
    delete_CkJsonObject $jResp
    exit
}

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

# {
#   "kind": "sql#instance",
#   "state": "RUNNABLE",
#   "databaseVersion": "MYSQL_5_7",
#   "settings": {
#     "authorizedGaeApplications": [
#     ],
#     "tier": "db-f1-micro",
#     "kind": "sql#settings",
#     "pricingPlan": "PER_USE",
#     "replicationType": "SYNCHRONOUS",
#     "activationPolicy": "ALWAYS",
#     "ipConfiguration": {
#       "authorizedNetworks": [
#       ],
#       "ipv4Enabled": true
#     },
#     "locationPreference": {
#       "zone": "asia-east1-a",
#       "kind": "sql#locationPreference"
#     },
#     "dataDiskType": "PD_SSD",
#     "backupConfiguration": {
#       "startTime": "08:00",
#       "kind": "sql#backupConfiguration",
#       "enabled": true,
#       "pointInTimeEnabled": true
#     },
#     "settingsVersion": "13",
#     "storageAutoResizeLimit": "0",
#     "storageAutoResize": true,
#     "dataDiskSizeGb": "10"
#   },
#   "etag": "etag-id",
#   "ipAddresses": [
#     {
#       "type": "PRIMARY",
#       "ipAddress": "10.0.0.1"
#     }
#   ],
#   "serverCaCert": {
#     "kind": "sql#sslCert",
#     "certSerialNumber": "0",
#     "cert": "certificate-id",
#     "commonName": "C=US,O=Google\\, Inc,CN=Google Cloud SQL Server CA,dnQualifier=dn-qualifier-id",
#     "sha1Fingerprint": "sha-id",
#     "instance": "instance-id",
#     "createTime": "2019-06-28T22:46:35.052Z",
#     "expirationTime": "2029-06-25T22:47:35.052Z"
#   },
#   "instanceType": "CLOUD_SQL_INSTANCE",
#   "project": "project-id",
#   "serviceAccountEmailAddress": "service-acct-id@gcp-sa-cloud-sql.iam.gserviceaccount.com",
#   "backendType": "SECOND_GEN",
#   "selfLink": "https://www.googleapis.com/sql/v1beta4/projects/project-id/instances/instance-id",
#   "connectionName": "project-id:region:instance-id",
#   "name": "instance-id",
#   "region": "asia-east1",
#   "gceZone": "asia-east1-a"
# }

# 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 kind [CkJsonObject_stringOf $jResp "kind"]
set state [CkJsonObject_stringOf $jResp "state"]
set databaseVersion [CkJsonObject_stringOf $jResp "databaseVersion"]
set settingsTier [CkJsonObject_stringOf $jResp "settings.tier"]
set settingsKind [CkJsonObject_stringOf $jResp "settings.kind"]
set settingsPricingPlan [CkJsonObject_stringOf $jResp "settings.pricingPlan"]
set settingsReplicationType [CkJsonObject_stringOf $jResp "settings.replicationType"]
set settingsActivationPolicy [CkJsonObject_stringOf $jResp "settings.activationPolicy"]
set settingsIpConfigurationIpv4Enabled [CkJsonObject_BoolOf $jResp "settings.ipConfiguration.ipv4Enabled"]
set settingsLocationPreferenceZone [CkJsonObject_stringOf $jResp "settings.locationPreference.zone"]
set settingsLocationPreferenceKind [CkJsonObject_stringOf $jResp "settings.locationPreference.kind"]
set settingsDataDiskType [CkJsonObject_stringOf $jResp "settings.dataDiskType"]
set settingsBackupConfigurationStartTime [CkJsonObject_stringOf $jResp "settings.backupConfiguration.startTime"]
set settingsBackupConfigurationKind [CkJsonObject_stringOf $jResp "settings.backupConfiguration.kind"]
set settingsBackupConfigurationEnabled [CkJsonObject_BoolOf $jResp "settings.backupConfiguration.enabled"]
set settingsBackupConfigurationPointInTimeEnabled [CkJsonObject_BoolOf $jResp "settings.backupConfiguration.pointInTimeEnabled"]
set settingsSettingsVersion [CkJsonObject_stringOf $jResp "settings.settingsVersion"]
set settingsStorageAutoResizeLimit [CkJsonObject_stringOf $jResp "settings.storageAutoResizeLimit"]
set settingsStorageAutoResize [CkJsonObject_BoolOf $jResp "settings.storageAutoResize"]
set settingsDataDiskSizeGb [CkJsonObject_stringOf $jResp "settings.dataDiskSizeGb"]
set etag [CkJsonObject_stringOf $jResp "etag"]
set serverCaCertKind [CkJsonObject_stringOf $jResp "serverCaCert.kind"]
set serverCaCertCertSerialNumber [CkJsonObject_stringOf $jResp "serverCaCert.certSerialNumber"]
set serverCaCertCert [CkJsonObject_stringOf $jResp "serverCaCert.cert"]
set serverCaCertCommonName [CkJsonObject_stringOf $jResp "serverCaCert.commonName"]
set serverCaCertSha1Fingerprint [CkJsonObject_stringOf $jResp "serverCaCert.sha1Fingerprint"]
set serverCaCertInstance [CkJsonObject_stringOf $jResp "serverCaCert.instance"]
set serverCaCertCreateTime [CkJsonObject_stringOf $jResp "serverCaCert.createTime"]
set serverCaCertExpirationTime [CkJsonObject_stringOf $jResp "serverCaCert.expirationTime"]
set instanceType [CkJsonObject_stringOf $jResp "instanceType"]
set project [CkJsonObject_stringOf $jResp "project"]
set serviceAccountEmailAddress [CkJsonObject_stringOf $jResp "serviceAccountEmailAddress"]
set backendType [CkJsonObject_stringOf $jResp "backendType"]
set selfLink [CkJsonObject_stringOf $jResp "selfLink"]
set connectionName [CkJsonObject_stringOf $jResp "connectionName"]
set name [CkJsonObject_stringOf $jResp "name"]
set region [CkJsonObject_stringOf $jResp "region"]
set gceZone [CkJsonObject_stringOf $jResp "gceZone"]
set i 0
set count_i [CkJsonObject_SizeOfArray $jResp "settings.authorizedGaeApplications"]
while {$i < $count_i} {
    CkJsonObject_put_I $jResp $i
    set i [expr $i + 1]
}
set i 0
set count_i [CkJsonObject_SizeOfArray $jResp "settings.ipConfiguration.authorizedNetworks"]
while {$i < $count_i} {
    CkJsonObject_put_I $jResp $i
    set i [expr $i + 1]
}
set i 0
set count_i [CkJsonObject_SizeOfArray $jResp "ipAddresses"]
while {$i < $count_i} {
    CkJsonObject_put_I $jResp $i
    set v_type [CkJsonObject_stringOf $jResp "ipAddresses[i].type"]
    set ipAddress [CkJsonObject_stringOf $jResp "ipAddresses[i].ipAddress"]
    set i [expr $i + 1]
}

delete_CkStringBuilder $sbToken
delete_CkHttp $http
delete_CkStringBuilder $sbResponseBody
delete_CkJsonObject $jResp