Lua

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

local chilkat = require("chilkat")

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

local http = chilkat.Http.new()

-- 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"
-- }

local json = chilkat.JsonObject.new()
json:update_string("MedTunnelId", "yourMedTunnelId@yourGroup")
json:update_string("Password", "yourPassword")
json:update_string("ApplicationId", "yourApplicationId")
json:update_string("LocationId", "yourLocationId")
json:update_string("ExpirationInMinutes", "50")

http:set_request_header("Content-Type", "application/json")

local sbRequestBody = chilkat.StringBuilder.new()
json:emit_sb(sbRequestBody)

local resp = chilkat.HttpResponse.new()
local success = http:http_sb("PUT", "https://server.medtunnel.com/MedTunnelSvc/api/Authenticate/LoginUser", sbRequestBody, "utf-8", "application/json", resp)
if not success then
    print(http.last_error_text)
    return
end

local sbResponseBody = chilkat.StringBuilder.new()
resp:get_body_sb(sbResponseBody)
local jResp = chilkat.JsonObject.new()
jResp:load_sb(sbResponseBody)
jResp.emit_compact = false

print("Response Body:")
print(jResp:emit())

local respStatusCode = resp.status_code
print("Response Status Code = " .. respStatusCode)
if respStatusCode >= 400 then
    print("Response Header:")
    print(resp.header)
    print("Failed.")
    return
end

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

local ReturnCode = jResp:int_of("ReturnCode")
local ReturnCodeText = jResp:string_of("ReturnCodeText")
local Data = jResp:string_of("Data")

-- Load the Data into another JSON object and parse..
local jsonData = chilkat.JsonObject.new()
jsonData:load(Data)
jsonData.emit_compact = false
print(jsonData: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"
-- }

local token = jsonData:string_of("Token")
print("Token: " .. token)