(Tcl) Shopware 6 - Delete Product

See more Shopware 6 Examples

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.

set http [new_CkHttp]

# Load the access token previously obtained in Shopware 6 OAuth2 Client Credentials
set jsonToken [new_CkJsonObject]

CkJsonObject_LoadFile $jsonToken "qa_data/tokens/shopware6.json"

# This causes the "Authorization: Bearer <access_token>" header to be added.
CkHttp_put_AuthToken $http [CkJsonObject_stringOf $jsonToken "access_token"]

# Delete a product by the product id.
# See Find Shopware 6 Product by Name for sample code to find a product id given the name.

# We need to send a DELETE request like this:
# DELETE /api/v3/product/d195dabb53cf46d096bd9a8726d82558

CkHttp_SetUrlVar $http "id" "d195dabb53cf46d096bd9a8726d82558"

# If successful (204 response code), then the jsonStr will be empty.
# Otherwise it will be a JSON error message.
set jsonStr [CkHttp_quickDeleteStr $http "https://my-shopware-6-shop.de/api/v3/product/{$id}"]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    exit
}

# A 204 status code indicates success.
set respStatusCode [CkHttp_get_LastStatus $http]
puts "Response status code for DELETE: $respStatusCode"

# This will be non-empty if an error occurred.
puts "$jsonStr"

delete_CkHttp $http
delete_CkJsonObject $jsonToken