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

added SYSOBJ check to the PostProcedure service to prevent invalid procedures from getting posted to the procedure queue

Browse Source
This commit is contained in:
Infineon\StieberD
2025-07-29 11:54:53 -07:00
parent 4eee1b0f0a
commit 0f0c735023
2 changed files with 19 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
LSL2/STPROC/SERVICE_SERVICES.txt
View File

@ -346,17 +346,25 @@ Service PostProcedure(ProcedureName, Params)
ErrorMsg = '' ErrorMsg = ''
If (ProcedureName NE '') then If (ProcedureName NE '') then
RequestKeyID = RTI_CreateGUID() ProcedureName = UCase(ProcedureName)
RequestRow = '' LSL2Key = '$':ProcedureName:'*LSL2'
RequestRow<PROC_QUEUE.PROC_NAME$> = ProcedureName FrameworksKey = '$':ProcedureName:'*FRAMEWORKS'
RequestRow<PROC_QUEUE.PARAMS$> = Params SysprogKey = '$':ProcedureName
RequestRow<PROC_QUEUE.ENTRY_DTM$> = Datetime() If ( RowExists('SYSOBJ', LSL2Key) or RowExists('SYSOBJ', FrameworksKey) or RowExists('SYSOBJ', SysprogKey) ) then
RequestRow<PROC_QUEUE.IN_QUEUE$> = False$ RequestKeyID = RTI_CreateGUID()
Database_Services('WriteDataRow', 'PROC_QUEUE2', RequestKeyID, RequestRow, True$, False$, False$) RequestRow = ''
If Error_Services('NoError') then RequestRow<PROC_QUEUE.PROC_NAME$> = ProcedureName
Response = RequestKeyId RequestRow<PROC_QUEUE.PARAMS$> = Params
RequestRow<PROC_QUEUE.ENTRY_DTM$> = Datetime()
RequestRow<PROC_QUEUE.IN_QUEUE$> = False$
Database_Services('WriteDataRow', 'PROC_QUEUE2', RequestKeyID, RequestRow, True$, False$, False$)
If Error_Services('NoError') then
Response = RequestKeyId
end else
ErrorMsg = 'Error in ':Service:' service. Error message: ':Error_Services('GetMessage')
end
end else end else
ErrorMsg = 'Error in ':Service:' service. Error message: ':Error_Services('GetMessage') ErrorMsg = 'Error in ':Service:' service. PROC_NAME ':Quote(ProcedureName):' does not exist.'
end end
end else end else
ErrorMsg = 'Error in ':Service:' service. Null ProcedureName passed in.' ErrorMsg = 'Error in ':Service:' service. Null ProcedureName passed in.'

2
LSL2/STPROC/TW_USE_ACTIONS.txt
View File

@ -164,7 +164,7 @@ WRITE_RECORD:
MetrologyID = Field(Name, '*', 1) MetrologyID = Field(Name, '*', 1)
RDSNo = Xlate('RDS_TEST', MetrologyID, RDS_TEST_RDS_NO$, 'X') RDSNo = Xlate('RDS_TEST', MetrologyID, RDS_TEST_RDS_NO$, 'X')
Service_Services('PostProcedure', 'RDS_Services', 'AllTWUseSigned':SD$:RDSNo) Service_Services('PostProcedure', 'RDS_SERVICES', 'AllTWUseSigned':SD$:RDSNo)
end end
return return