Tcl Stripe: Delete a Customer Subscription Discount

Back to Index

Removes the currently applied discount on a subscription.

Documentation: https://stripe.com/docs/api/curl#delete_subscription_discount

CURL Command

curl https://api.stripe.com/v1/subscriptions/sub_CBbgnZGMJwa9ta/discount \
   -u STRIPE_SECRET_KEY: \
   -X DELETE

Tcl Example

load ./chilkat.dll

set rest [new_CkRest]

#  URL: https://api.stripe.com/v1/subscriptions/sub_CBbgnZGMJwa9ta/discount
set bTls 1
set port 443
set bAutoReconnect 1
set success [CkRest_Connect $rest "api.stripe.com" $port $bTls $bAutoReconnect]
if {[expr $success != 1]} then {
    puts "ConnectFailReason: [CkRest_ConnectFailReason $rest]"
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    exit
}

CkRest_SetAuthBasic $rest "STRIPE_SECRET_KEY" ""

set sbResponseBody [new_CkStringBuilder]

set success [CkRest_FullRequestNoBodySb $rest "DELETE" "/v1/subscriptions/sub_CBbgnZGMJwa9ta/discount" $sbResponseBody]
if {[expr $success != 1]} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    delete_CkStringBuilder $sbResponseBody
    exit
}

set jsonResponse [new_CkJsonObject]

CkJsonObject_LoadSb $jsonResponse $sbResponseBody

set deleted [CkJsonObject_BoolOf $jsonResponse "deleted"]
set id [CkJsonObject_stringOf $jsonResponse "id"]

delete_CkRest $rest
delete_CkStringBuilder $sbResponseBody
delete_CkJsonObject $jsonResponse

Sample JSON Response Body

{
  "deleted": true,
  "id": "di_1BnETLGswQrCoh0Xe991uMc7"
}