added sysprog entities
This commit is contained in:
40
SYSPROG/STPROC/SRP_LOGON.txt
Normal file
40
SYSPROG/STPROC/SRP_LOGON.txt
Normal file
@ -0,0 +1,40 @@
|
||||
Compile function SRP_Logon(@Service, @Params)
|
||||
/************************************************************************************************
|
||||
This program is proprietary and is not to be used by or disclosed to others, nor is it to
|
||||
be copied without written permission from SRP Computer Solutions, Inc.
|
||||
|
||||
Name : SRP_Logon
|
||||
|
||||
Description : Service module for the SRP_Logon system.
|
||||
|
||||
Parameters:
|
||||
Service [IN] - The service to execute
|
||||
Params [IN] - Service specific parameters
|
||||
|
||||
History (Date, Initials, Notes)
|
||||
06/18/20 KRF Original programmer
|
||||
************************************************************************************************/
|
||||
#pragma precomp SRP_PreCompiler
|
||||
$insert LOGICAL
|
||||
|
||||
Declare function SRPLogonAPI_ValidateUser, SRPLogonAPI_GetADGroups, SRPLogonAPI_GetError
|
||||
|
||||
GoToService
|
||||
|
||||
Return Response or ""
|
||||
|
||||
//-----------------------------------------------------------------------------
|
||||
// SERVICES
|
||||
//-----------------------------------------------------------------------------
|
||||
|
||||
Service ValidateUser(Username, Password, Domain)
|
||||
Response = SRPLogonAPI_ValidateUser(Username, Password, Domain)
|
||||
End Service
|
||||
|
||||
Service GetADGroups(AdName, DcName)
|
||||
Response = SRPLogonAPI_GetADGroups(AdName, DcName)
|
||||
End Service
|
||||
|
||||
Service GetError()
|
||||
Response = SRPLogonAPI_GetError()
|
||||
End Service
|
Reference in New Issue
Block a user