PureBasic

SMSAPI - Delete a Subuser Account

See more SMSAPI Examples

Deletes a sub-user account. PureBasic

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

    success.i = 0

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Implements the following CURL command:

    ; curl -X "DELETE" -H "Authorization: Bearer token_api_oauth" \
    ; https://api.smsapi.com/subusers/{subuser_id}

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

    ; Adds the "Authorization: Bearer token_api_oauth" header.
    CkHttp::setCkAuthToken(http, "token_api_oauth")

    ; In this example, the subuser_id is 5F8BAE8D643637F7072FDBF1
    resp.i = CkHttpResponse::ckCreate()
    If resp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckHttpNoBody(http,"DELETE","https://api.smsapi.com/subusers/5F8BAE8D643637F7072FDBF1",resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

    ; Success is indicated by a 201 response status code and an empty response body.
    Debug "Response code: " + Str(CkHttpResponse::ckStatusCode(resp))
    Debug "Response body: " + CkHttpResponse::ckBodyStr(resp)


    CkHttp::ckDispose(http)
    CkHttpResponse::ckDispose(resp)


    ProcedureReturn
EndProcedure