Xbase++

SMSAPI - Add Subuser Account

See more SMSAPI Examples

Adds a new sub-user account. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oJson
LOCAL oResp
LOCAL oSbResponseBody
LOCAL oJResp
LOCAL nRespStatusCode
LOCAL cUsername
LOCAL nLimit
LOCAL nMonth_limit
LOCAL nSenders
LOCAL nPhonebook
LOCAL nActive
LOCAL cInfo

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

//  Implements the following CURL command:

//  curl https://api.smsapi.com/subusers -i -H "Authorization: Bearer token_api_oauth" \ 
//  -H  "Content-Type: application/json" -X POST \
//  -d '{"credentials": { "username": "User_name","password" :"Smsapi_panel_password","api_password":"api_password"},
//  "active":"1","description":"description","points":{"from_account":"2","per_month":"2"}}'

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

//  Use this online tool to generate code from sample JSON:
//  Generate Code to Create JSON

//  The following JSON is sent in the request body.

//  {
//    "credentials": {
//      "username": "User_name",
//      "password": "Smsapi_panel_password",
//      "api_password": "api_password"
//    },
//    "active": "1",
//    "description": "description",
//    "points": {
//      "from_account": "2",
//      "per_month": "2"
//    }
//  }

oJson := CreateObject("Chilkat.JsonObject")
oJson:UpdateString("credentials.username", "User_name")
oJson:UpdateString("credentials.password", "Smsapi_panel_password123")
oJson:UpdateString("credentials.api_password", "api_Password123")
oJson:UpdateString("active", "1")
oJson:UpdateString("description", "description")
oJson:UpdateString("points.from_account", "2")
oJson:UpdateString("points.per_month", "2")

//  Adds the "Authorization: Bearer token_api_oauth" header.
oHttp:AuthToken := "token_api_oauth"

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpJson("POST", "https://api.smsapi.com/subusers", oJson, "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oJson:destroy()
    oResp:destroy()
    RETURN
ENDIF

oSbResponseBody := CreateObject("Chilkat.StringBuilder")
oResp:GetBodySb(oSbResponseBody)
oJResp := CreateObject("Chilkat.JsonObject")
oJResp:LoadSb(oSbResponseBody)
oJResp:EmitCompact := 0

? "Response Body:"
? oJResp:Emit()

nRespStatusCode := oResp:StatusCode
? "Response Status Code = " + Str(nRespStatusCode)
IF (nRespStatusCode >= 400)
    ? "Response Header:"
    ? oResp:Header
    ? "Failed."
    oHttp:destroy()
    oJson:destroy()
    oResp:destroy()
    oSbResponseBody:destroy()
    oJResp:destroy()
    RETURN
ENDIF

//  Sample JSON response:
//  (Sample code for parsing the JSON response is shown below)

//  {
//    "username": "subuser",
//    "limit": 0,
//    "month_limit": 0,
//    "senders": 0,
//    "phonebook": 0,
//    "active": false,
//    "info": "unknown"
//  }

//  Sample code for parsing the JSON response...
//  Use the following online tool to generate parsing code from sample JSON:
//  Generate Parsing Code from JSON

cUsername := oJResp:StringOf("username")
nLimit := oJResp:IntOf("limit")
nMonth_limit := oJResp:IntOf("month_limit")
nSenders := oJResp:IntOf("senders")
nPhonebook := oJResp:IntOf("phonebook")
nActive := oJResp:BoolOf("active")
cInfo := oJResp:StringOf("info")

oHttp:destroy()
oJson:destroy()
oResp:destroy()
oSbResponseBody:destroy()
oJResp:destroy()