I
Irfan
Guest
I tried this and it worked. lok = hCP:validate-seal("oech1::1a051b0c373c"). This is my full acitvate.p USING OpenEdge.Logging.ILogWriter FROM PROPATH. USING OpenEdge.Logging.LoggerBuilder FROM PROPATH. /* ******************** Preprocessor Definitions ******************** */ /* *************************** Main Block *************************** */ define variable hCP as handle no-undo. define variable cReqName as char no-undo. DEFINE VARIABLE logger AS ILogWriter NO-UNDO. def var lok as logical no-undo. logger = LoggerBuilder:GetLogger(THIS-PROCEDURE). cReqName = session:current-request-info
rocedureName. hCP = session:current-request-info:GetClientPrincipal(). lok = hCP:validate-seal("oech1::1a051b0c373c"). //lok = SECURITY-POLICY:SET-CLIENT(hCP). if (lok) then do: logger:Info('Client-Principal validation successful'). run dumpCP.p (hCP,cReqName). end. else do: logger:Error('Client-Principal cannot be validated'). return error. end. CATCH e AS Progress.Lang.Error : define variable iLoop as integer no-undo. do iLoop = 1 to e:NumMessages: logger:Error(e:GetMessage(iLoop)). end. END CATCH. FINALLY: delete object hCP. END FINALLY.
Continue reading...
rocedureName. hCP = session:current-request-info:GetClientPrincipal(). lok = hCP:validate-seal("oech1::1a051b0c373c"). //lok = SECURITY-POLICY:SET-CLIENT(hCP). if (lok) then do: logger:Info('Client-Principal validation successful'). run dumpCP.p (hCP,cReqName). end. else do: logger:Error('Client-Principal cannot be validated'). return error. end. CATCH e AS Progress.Lang.Error : define variable iLoop as integer no-undo. do iLoop = 1 to e:NumMessages: logger:Error(e:GetMessage(iLoop)). end. END CATCH. FINALLY: delete object hCP. END FINALLY.Continue reading...