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

Move MonIn calls to background

Browse Source
This commit is contained in:
Chase Tucker 2025-06-04 11:09:43 -07:00 committed by Tucker Chase (CSC FI SPS MESLEO)
parent c4fbf7c1d9
commit f3ad7adfa8
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
LSL2/STPROC/MONA_SERVICES.txt
View File

@ -18,7 +18,7 @@ Parm3:
-For Metric updates this represents the numeric data that you wish to send. -For Metric updates this represents the numeric data that you wish to send.
***************************************************************/ ***************************************************************/
Declare Subroutine Errmsg, Error_Services, Delay, Mona_Services Declare Subroutine Errmsg, Error_Services, Delay, Mona_Services, Service_Services
Declare function Get_Status, SRP_Datetime, Environment_Services, Httpclient_Services Declare function Get_Status, SRP_Datetime, Environment_Services, Httpclient_Services
#pragma precomp SRP_PreCompiler #pragma precomp SRP_PreCompiler
@ -44,17 +44,23 @@ Options STATES = 'OK', 'WARNING', 'CRITICAL'
Service SendStatus(MonitorName=MONITORS, StatusName, CurrentState=STATES) Service SendStatus(MonitorName=MONITORS, StatusName, CurrentState=STATES)
Mona_Services("SendBufferedStatus", MonitorName, StatusName, CurrentState) Mona_Services("PostStatus", MonitorName, StatusName, CurrentState)
end service end service
Service PostStatus(MonitorName, StatusName, CurrentState=STATES)
Service_Services('PostProcedure', 'MONA_SERVICES', 'SendBufferedStatus':@VM:MonitorName:@VM:StatusName:@VM:CurrentState)
end service
Service SendMetric(MonitorName=MONITORS, MetricName, Number) Service SendMetric(MonitorName=MONITORS, MetricName, Number)
Mona_Services("SendBufferedAverageMetric", MonitorName, MetricName, Number) Mona_Services("PostAverageMetric", MonitorName, MetricName, Number)
end Service end Service
Service PostAverageMetric(MonitorName, MetricName, Number)
Service_Services('PostProcedure', 'MONA_SERVICES', 'SendBufferedAverageMetric':@VM:MonitorName:@VM:MetricName:@VM:Number)
end service
Service SendBufferedStatus(MonaResource, StatusName, StatusValue) Service SendBufferedStatus(MonaResource, StatusName, StatusValue)
@ -195,3 +201,4 @@ SwapResourceNames:
return return