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

changed delimiter used for the background process queue so that all native delimiters are protected

Browse Source
This commit is contained in:
Infineon\StieberD
2025-07-18 12:08:09 -07:00
parent c890a25d46
commit e1a44a7687
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
LSL2/STPROC/SERVICE_SERVICES.txt
View File

@ -226,13 +226,12 @@ Service ProcessRequest(RequestKeyID)
LSL2Key = '$':Procedure:'*LSL2' LSL2Key = '$':Procedure:'*LSL2'
FrameworksKey = '$':Procedure:'*FRAMEWORKS' FrameworksKey = '$':Procedure:'*FRAMEWORKS'
SysprogKey = '$':Procedure SysprogKey = '$':Procedure
If RowExists('SYSOBJ', LSL2Key) or RowExists('SYSOBJ', FrameworksKey) or RowExists('SYSOBJ', SysprogKey) then If ( RowExists('SYSOBJ', LSL2Key) or RowExists('SYSOBJ', FrameworksKey) or RowExists('SYSOBJ', SysprogKey) ) then
Dim ProcParams(11) Dim ProcParams(11)
swap SD$ with @FM in Params For each Param in Params using SD$ setting pPos
For each Param in Params using @FM setting pPos
ProcParams(pPos) = Param ProcParams(pPos) = Param
Next Param Next Param
NumArguments = DCount(Params, @FM) NumArguments = DCount(Params, SD$)
Begin Case Begin Case
Case NumArguments EQ 0 ; Call @Procedure() Case NumArguments EQ 0 ; Call @Procedure()
Case NumArguments EQ 1 ; Call @Procedure(ProcParams(1)) Case NumArguments EQ 1 ; Call @Procedure(ProcParams(1))
@ -258,7 +257,7 @@ Service ProcessRequest(RequestKeyID)
Error_Services('Add', 'Error in ':Service:' service. Null PROC_NAME posted to queue.') Error_Services('Add', 'Error in ':Service:' service. Null PROC_NAME posted to queue.')
end end
Swap @VM with ',' in Params Swap SD$ with ',' in Params
LogData = LoggingDTM LogData = LoggingDTM
LogData<2> = Server LogData<2> = Server
LogData<3> = RequestKeyId LogData<3> = RequestKeyId
@ -453,4 +452,3 @@ end service
/// Internal GoSubs /// Internal GoSubs
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

4
LSL2/STPROCINS/IFX_EQUATES.txt
View File

@ -1,3 +1,5 @@
Compile insert IFX_EQUATES Compile insert IFX_EQUATES
EQU SD$ TO '%SERVICECALLDELIM%' // This is an unused ASCII character and should be safe for use as a delimiter
EQU SD$ TO \9D\