Removes the currently applied discount on a customer.
curl https://api.stripe.com/v1/customers/cus_CBbg9PmQ9sLbmo/discount \
-u STRIPE_SECRET_KEY: \
-X DELETE
load ./chilkat.dll
set rest [new_CkRest]
# URL: https://api.stripe.com/v1/customers/cus_CBbg9PmQ9sLbmo/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/customers/cus_CBbg9PmQ9sLbmo/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
{
"deleted": true,
"id": "di_1BnETLGswQrCoh0Xe991uMc7"
}