Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Perl) MedTunnel: Login UserSee more MedTunnel ExamplesAuthenticate and create a session for the User. This gets a user token to be used in the Authorization header for other API calls. For more information, see https://server.medtunnel.com/apidocs/html/M_MedTunnelSvc_Controllers_AuthenticateController_LoginUser.htm
use chilkat(); # This example assumes the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. $http = chilkat::CkHttp->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" # } $json = chilkat::CkJsonObject->new(); $json->UpdateString("MedTunnelId",'yourMedTunnelId@yourGroup'); $json->UpdateString("Password","yourPassword"); $json->UpdateString("ApplicationId","yourApplicationId"); $json->UpdateString("LocationId","yourLocationId"); $json->UpdateString("ExpirationInMinutes","50"); $http->SetRequestHeader("Content-Type","application/json"); $sbRequestBody = chilkat::CkStringBuilder->new(); $json->EmitSb($sbRequestBody); # resp is a HttpResponse $resp = $http->PTextSb("PUT","https://server.medtunnel.com/MedTunnelSvc/api/Authenticate/LoginUser",$sbRequestBody,"utf-8","application/json",0,0); if ($http->get_LastMethodSuccess() == 0) { print $http->lastErrorText() . "\r\n"; exit; } $sbResponseBody = chilkat::CkStringBuilder->new(); $resp->GetBodySb($sbResponseBody); $jResp = chilkat::CkJsonObject->new(); $jResp->LoadSb($sbResponseBody); $jResp->put_EmitCompact(0); print "Response Body:" . "\r\n"; print $jResp->emit() . "\r\n"; $respStatusCode = $resp->get_StatusCode(); print "Response Status Code = " . $respStatusCode . "\r\n"; if ($respStatusCode >= 400) { print "Response Header:" . "\r\n"; print $resp->header() . "\r\n"; print "Failed." . "\r\n"; exit; } # 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 $ReturnCode = $jResp->IntOf("ReturnCode"); $ReturnCodeText = $jResp->stringOf("ReturnCodeText"); $Data = $jResp->stringOf("Data"); # Load the Data into another JSON object and parse.. $jsonData = chilkat::CkJsonObject->new(); $jsonData->Load($Data); $jsonData->put_EmitCompact(0); print $jsonData->emit() . "\r\n"; # 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" # } $token = $jsonData->stringOf("Token"); print "Token: " . $token . "\r\n"; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.