J
James Palmer
Guest
I'll see what I can do... It's just a proof of concept so still needs some work, but it's a start. DEFINE VARIABLE hClientPrincipal AS HANDLE NO-UNDO. /*Do user validation against our User table then...*/ RUN CreateCPObject(User_Name). PROCEDURE CreateCPObject : /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ DEFINE INPUT PARAMETER ip-UserID AS CHARACTER NO-UNDO. CREATE CLIENT-PRINCIPAL hClientPrincipal. /*RUN Test.*/ hClientPrincipal:SESSION-ID = BASE64-ENCODE(GENERATE-UUID). hClientPrincipal:USER-ID = ip-UserID. hClientPrincipal
OMAIN-NAME = 'TestDomain'. hClientPrincipalOMAIN-TYPE = 'Internal'. hClientPrincipal:LOGIN-EXPIRATION-TIMESTAMP = ADD-INTERVAL(NOW, 60000, 'seconds'). /*hClientPrincipal:ROLES = pcRoles.*/ hClientPrincipal:SET-PROPERTY('UserPlant', 'Norcross'). FIND person NO-LOCK WHERE person.name EQ FILL-IN_Name NO-ERROR. IF NOT AVAILABLE person THEN DO: hClientPrincipal:AUTHENTICATION-FAILED ('UserName Password authenitication failed.'). MESSAGE 'UserName Password authenitication failed.' VIEW-AS ALERT-BOX ERROR. RETURN. END. IF person.password NE ENCODE(FILL-IN_Password) THEN DO: hClientPrincipal:AUTHENTICATION-FAILED ('UserName Password authenitication failed.'). MESSAGE 'UserName Password authenitication failed.' VIEW-AS ALERT-BOX ERROR. RETURN. END. hClientPrincipal:SEAL("1234"). SET-DB-CLIENT(hClientPrincipal). /*RUN Test.*/ END PROCEDURE.
Continue reading...
OMAIN-NAME = 'TestDomain'. hClientPrincipalOMAIN-TYPE = 'Internal'. hClientPrincipal:LOGIN-EXPIRATION-TIMESTAMP = ADD-INTERVAL(NOW, 60000, 'seconds'). /*hClientPrincipal:ROLES = pcRoles.*/ hClientPrincipal:SET-PROPERTY('UserPlant', 'Norcross'). FIND person NO-LOCK WHERE person.name EQ FILL-IN_Name NO-ERROR. IF NOT AVAILABLE person THEN DO: hClientPrincipal:AUTHENTICATION-FAILED ('UserName Password authenitication failed.'). MESSAGE 'UserName Password authenitication failed.' VIEW-AS ALERT-BOX ERROR. RETURN. END. IF person.password NE ENCODE(FILL-IN_Password) THEN DO: hClientPrincipal:AUTHENTICATION-FAILED ('UserName Password authenitication failed.'). MESSAGE 'UserName Password authenitication failed.' VIEW-AS ALERT-BOX ERROR. RETURN. END. hClientPrincipal:SEAL("1234"). SET-DB-CLIENT(hClientPrincipal). /*RUN Test.*/ END PROCEDURE.Continue reading...