phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pre cutover push

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

8
LSL2/STPROC/SECURITY_SERVICES.txt
View File

@ -34,14 +34,12 @@ $insert DICT_EQUATES
$insert FILE.SYSTEM.EQUATES
$insert RLIST_EQUATES
$insert AD_GROUP_VALIDATION_REQUESTS_EQUATES
$insert Logon32_Equates
$insert MSG_EQUATES
Declare subroutine Memory_Services, Database_Services, SRP_Stopwatch, Error_Services, RTP57, Set_Status, WinYield
Declare subroutine Sleepery, Yield, Messaging_Services
Declare function Memory_Services, Database_Services, Security_Services, SRP_Sort_Array, obj_Tables, Error_Services
Declare function GetTickCount, MemberOf, SRP_LogonUser, RTI_LDAP_Groups_for_User, SRPLogonAPI_ValidateUser
Declare function SRP_Logon, Dialog_Box, Msg, Active_Directory_Services
Declare function GetTickCount, MemberOf, Active_Directory_Services, Dialog_Box, Msg, SRP_Logon, Rti_Ldap_Groups_For_User
GoToService else
Error_Services('Set', Service : ' is not a valid service request within the ' : ServiceModule : ' services module.')
@ -224,14 +222,14 @@ return
//----------------------------------------------------------------------------------------------------------------------
// GetADGroups
//
// Returns an @VM delimited list of AD (active directory) groups that the indicated user belongs to.
// Returns an @FM delimited list of AD (active directory) groups that the indicated user belongs to.
//----------------------------------------------------------------------------------------------------------------------
Service GetADGroups(Username, Domain)
ADGroups = ''
If (Username NE '') AND (Domain NE '') then
ADGroups = SRP_Logon('GetADGroups', Username, Domain)
ADGroups = Active_Directory_Services('GetADGroups', Username, Domain)
end else
Error_Services('Add', 'Username or Domain arguments was missing in the ' : Service : ' service.')
end