Stores a deep copy (clone) of a client principal object in an OERequestInfo instance.
On successful execution this method returns TRUE.
Return type: LOGICAL
Access: PUBLIC
Applies to: Progress.Lang.OERequestInfo class
The bold code in the following fragment shows setting a client principal in a server's server's OERequestInfo instance:
DEFINE VARIABLE hAppSrv as HANDLE. DEFINE VARIABLE hCPIn as HANDLE. DEFINE VARIABLE hCPOut as HANDLE. DEFINE VARIABLE ccid as CHARACTER. DEFINE VARIABLE bOK as LOGICAL. DEFINE VARIABLE loginState as CHARACTER. CREATE SERVER hAppSrv. ccid = hAppSrv:REQUEST-INFO:clientContextID. CREATE CLIENT-PRINCIPAL hCPIn. hCPIn:INITIALIZE("userName@domainName", ccid, ?, "password"). hAppSrv:REQUEST-INFO:SetClientPrincipal(hCPIn). bOK = hAppSrv:CONNECT("-URL AppServerDC://asHost:asPort/svc"). hCPOut = hAppSrv:RESPONSE-INFO:GetClientPrincipal(). IF VALID-HANDLE(hCPOut) THEN loginState = hCPOut:LOGIN-STATE. ELSE loginState = ?. . . . IF VALID-HANDLE(hCPOut) THEN DELETE OBJECT hCPOut. |