added LSL2 stored procedures
This commit is contained in:
25
LSL2/STPROC/SRP_EDITOR_TEMP_TEST_SYSPROG.txt
Normal file
25
LSL2/STPROC/SRP_EDITOR_TEMP_TEST_SYSPROG.txt
Normal file
@ -0,0 +1,25 @@
|
||||
COMPILE subroutine SRP_EDITOR_TEMP_TEST_SYSPROG(Dummy)
|
||||
|
||||
DECLARE FUNCTION Msg, GetNetworkUserName, Get_Status, Show_Windows_Processes, SRP_GetUserName, RTI_GetLDAPInfo, GetUserName, Get_App_Info
|
||||
DECLARE SUBROUTINE Send_Info, Send_Dyn, Msg, RList, Create_Volume, ErrMsg, Copy_Table, aTTACH_TABLE, FSMSG, Add_Repos_App
|
||||
|
||||
EQU CRLF TO \0D0A\
|
||||
|
||||
$insert LOGICAL
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT ENVIRON_CONSTANTS
|
||||
|
||||
Debug
|
||||
|
||||
UserName = Str(\00\, 1024)
|
||||
rv = GetUserName(UserName, Len(UserName))
|
||||
Convert \00\ to '' in UserName
|
||||
|
||||
* UserName = Str(\00\, 1024)
|
||||
* rv = SRP_GetUserName(UserName, Len(UserName))
|
||||
|
||||
|
||||
debug
|
||||
|
||||
Return
|
||||
|
Reference in New Issue
Block a user