Xbase++

MedTunnel: Login User

See more MedTunnel Examples

Authenticate and create a session for the User. This gets a user token to be used in the Authorization header for other API calls. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oJson
LOCAL oSbRequestBody
LOCAL oResp
LOCAL oSbResponseBody
LOCAL oJResp
LOCAL nRespStatusCode
LOCAL nReturnCode
LOCAL cReturnCodeText
LOCAL cData
LOCAL oJsonData
LOCAL cToken

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 -X PUT -k 
//          -H "Content-Type: application/json" 
//          -d '{        "MedTunnelId":"yourMedTunnelId@yourGroup",
//                          "Password":"yourPassword",
//                          "ApplicationId":"yourApplicationId",
//                          "LocationId":"yourLocationId",
//                          "ExpirationInMinutes":"50"
//                  }'
//          https://server.medtunnel.com/MedTunnelSvc/api/Authenticate/LoginUser

//  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.

//  {
//    "MedTunnelId": "yourMedTunnelId@yourGroup",
//    "Password": "yourPassword",
//    "ApplicationId": "yourApplicationId",
//    "LocationId": "yourLocationId",
//    "ExpirationInMinutes": "50"
//  }

oJson := CreateObject("Chilkat.JsonObject")
oJson:UpdateString("MedTunnelId", "yourMedTunnelId@yourGroup")
oJson:UpdateString("Password", "yourPassword")
oJson:UpdateString("ApplicationId", "yourApplicationId")
oJson:UpdateString("LocationId", "yourLocationId")
oJson:UpdateString("ExpirationInMinutes", "50")

oHttp:SetRequestHeader("Content-Type", "application/json")

oSbRequestBody := CreateObject("Chilkat.StringBuilder")
oJson:EmitSb(oSbRequestBody)

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpSb("PUT", "https://server.medtunnel.com/MedTunnelSvc/api/Authenticate/LoginUser", oSbRequestBody, "utf-8", "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oJson:destroy()
    oSbRequestBody: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()
    oSbRequestBody:destroy()
    oResp:destroy()
    oSbResponseBody:destroy()
    oJResp:destroy()
    RETURN
ENDIF

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

//  {
//    "ReturnCode": 1,
//    "ReturnCodeText": "Success",
//    "Data": "{\"UserId\":36990,\"UserTypeId\":1, ... \"UserRole\":\"Account Admin\"}"
//  }

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

nReturnCode := oJResp:IntOf("ReturnCode")
cReturnCodeText := oJResp:StringOf("ReturnCodeText")
cData := oJResp:StringOf("Data")

//  Load the Data into another JSON object and parse..
oJsonData := CreateObject("Chilkat.JsonObject")
oJsonData:Load(cData)
oJsonData:EmitCompact := 0
? oJsonData:Emit()

//  Sample result.

//  {
//    "UserId": 36990,
//    "UserTypeId": 1,
//    "UserTypeDesc": "Single Provider",
//    "Token": "MT 730DCA95-2B86-4A91-994E-99995B1A6FC1:9999952A-C6DA-4FB5-83D6-9999E880B4A2:50:/hc3CTWCS0kNMxZXTWR4NQ==:tev2vAToTCrnuyT6rxyCgQ==:sAYcvgPoIfaaCF0+gdeSD1GFcYk=",
//    "MailboxId": 36965,
//    "UserRole": "Account Admin"
//  }

cToken := oJsonData:StringOf("Token")
? "Token: " + cToken

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