Xbase++

Delete a Google Cloud Storage Bucket

See more Google Cloud Storage Examples

Demonstrates how to delete a Google Cloud Storage bucket. Xbase++

LOCAL nSuccess
LOCAL oSbToken
LOCAL oHttp
LOCAL cUrl
LOCAL cResponseBody
LOCAL nResponseCode

nSuccess := 0

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

//  This example uses a previously obtained access token having permission for the 
//  scope "https://www.googleapis.com/auth/cloud-platform"

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

//  Send a DELETE equivalent to this curl command

//  curl -X DELETE -H "Authorization: Bearer [OAUTH2_TOKEN]" \
//      "https://www.googleapis.com/storage/v1/b/[BUCKET_NAME]"
//  
oHttp := CreateObject("Chilkat.Http")
oHttp:AuthToken := oSbToken:GetAsString()

oHttp:SetUrlVar("bucket_name", "chilkat-ocean")
cUrl := "https://www.googleapis.com/storage/v1/b/{$bucket_name}"

cResponseBody := oHttp:QuickDeleteStr(cUrl)
IF (oHttp:LastMethodSuccess == 0)
    ? oHttp:LastErrorText
    oSbToken:destroy()
    oHttp:destroy()
    RETURN
ENDIF

nResponseCode := oHttp:LastStatus
IF (nResponseCode == 401)
    ? cResponseBody
    ? "If invalid credentials, then it is likely the access token expired."
    ? "Your app should automatically fetch a new access token and re-try."
    oSbToken:destroy()
    oHttp:destroy()
    RETURN
ENDIF

//  A 204 response code indicates success..
//  If not success, then examine the response code and response body..
IF (nResponseCode != 204)
    ? "Response code: " + Str(nResponseCode)
    ? "Response body"
    ? cResponseBody
ELSE
    ? "Success."
ENDIF

oSbToken:destroy()
oHttp:destroy()