pre cutover push

This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions

View File

@ -37,7 +37,7 @@ $insert EVENT_SETUP
$insert MSG_EQUATES
Declare subroutine SRP_Show_Window
Declare function Security_Services, SRP_Logon
Declare function Security_Services, Active_Directory_Services
// Update the arguments so that the OpenInsight OLE event will treate the ActiveX event as a native event handler.
@ -121,7 +121,7 @@ Event PUB_OK.CLICK()
EnteredUser = Security_Services('GetLSLUser', Username)
If ValidUser EQ EnteredUser then
// Correct User, move onto check password
Result = SRP_Logon('ValidateUser', Username, Password, Domain)
Result = Active_Directory_Services('AuthenticateUser', Username, Password, Domain)
end else
// Wrong User
Msg(@Window, 'Invalid credentials.')