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

14
LSL2/STPROC/OENGINE_HEARTBEAT.txt
View File

@ -1,8 +1,8 @@
Compile function OENGINE_HEARTBEAT(@Service, @Params)
#pragma precomp SRP_PreCompiler
declare function GetCommandLine
Declare function Database_Services, SRP_TcpClient, Environment_Services
Declare subroutine SRP_TcpClient
Declare function Database_Services, SRP_TcpClient, Environment_Services, SRP_Datetime
Declare subroutine SRP_TcpClient, Database_Services
$Insert LOGICAL
@ -18,7 +18,6 @@ end
Return Response else ''
Service Run()
hSysLists = Database_Services('GetTableHandle', 'SYSLISTS')
Lock hSysLists, ServiceKeyID then
CommandLine = GetCommandLine()
@ -35,12 +34,9 @@ Service Run()
IF Indexc(CommandLine, '/S=EN', 1) then
EngineTag = Indexc(CommandLine, '/S=EN', 1) + 3
EngineNo = CommandLine[EngineTag, 999]
If SRP_TcpClient(TcpClientHandle, "CONNECT", "127.0.0.1", "13000") then
SRP_TcpClient(TcpClientHandle, "SEND", Env:'-':EngineNo)
SRP_TcpClient(TcpClientHandle, "CLOSE")
end
EngineID = Env:'-':EngineNo
CurrDTM = SRP_Datetime('Now')
Database_Services('WriteDataRow', 'APP_INFO', EngineID, CurrDTM, True$, False$, True$)
end
ClearSelect 0
end