peoplesoft链接oracle,Oracle OAM实现PeopleSoft SSO单点登录

/*----peoplesoft sso-----*/

Function Oracle_Access_Manager_Authentication()

/* Note: Following file will written to the default path.*/

/* Usually appserv//files */

&logfile = GetFile("oamaccess.log", "A");

If &logfile.Isopen Then

&logfile.Writeline("INFO: Netpoint_Authentication_Profile started");

&logfile.Writeline(String(%Datetime));

&logfile.Writeline("authMethod: ");

End-If;

If %PSAuthResult = True And

&authMethod <> "LDAP" And

&authMethod <> "COREID" And

&authMethod <> "SSO" Then

If &logfile.Isopen Then

&logfile.Writeline("INFO: AuthResult and AuthMethod ok.");

End-If;

getWWWAuthConfig();

If &logfile.Isopen Then

&logfile.Writeline("INFO: After get wwwauthconfig.");

&logfile.Writeline(&defaultUserId);

End-If;

If %SignonUserId = &defaultUserId Then

If &logfile.Isopen Then

&logfile.Writeline("INFO: %SignonUserId = &defaultUserId ");

End-If;

&userID = %Request.GetHeader("PS_SSO_UID");

If &logfile.Isopen Then

&logfile.Writeline("INFO: After getting HTTPheader");

&logfile.Writeline(&userID);

End-If;

If &userID <> "" Then

If &bConfigRead = False Then

getLDAPConfig();

If &logfile.Isopen Then

&logfile.Writeline("INFO: After getLDAPConfig()");

&logfile.Writeline(&userID);

End-If;

&GlobalUserID = &userID;

If &logfile.Isopen Then

&logfile.Writeline("INFO: After DNTold");

&logfile.Writeline(&GlobalUserID);

End-If;

If &GlobalUserID <> "" Then

SetAuthenticationResult( True, &GlobalUserID, "", False);

&authMethod = "WWW";

If &logfile.Isopen Then

&logfile.Writeline("INFO: Userid is valid");

&logfile.Writeline(&GlobalUserID);

End-If;

End-If;

End-If;

Else

If &logfile.Isopen Then

&logfile.Writeline("Warning: %SignonUserId not = &defaultUserId");

&logfile.Writeline(%SignonUserId);

&logfile.Writeline(&defaultUserId);

End-If;

End-If;

Else

If &logfile.Isopen Then

/*Note: Next line sometimes wraps due to length – fix if necessary */

&logfile.Writeline("ERROR: %PSAuthResult = True And");

&logfile.Writeline("&authMethod <> ""LDAP"" And ");

&logfile.Writeline("&authMethod <> ""SSO""");

&logfile.Writeline(%PSAuthResult);

&logfile.Writeline(&defaultUserId);

&logfile.Writeline(%Request.GetHeader("PS_SSO_UID"));

End-If;

End-If;

If &logfile.Isopen Then

&logfile.Writeline("INFO: Oracle_Access_Manager_Authentication_Profile exit");

&logfile.close();

End-If;

End-If;

End-Function;

/*----peoplesoft sso-----*/