BL.EC.Common,BL.Sys.Proxy
1
%RegisteredObject
0
1
Een bepaalde veiligheidscontrole werd niet uitgevoerd.
------------------------------------------------------------------------------------------------------
1
expression
IP:%String,Type:%String,Index:%String
%String
------------------------------------------------------------------------------------------------------
1
IP:%String,Type:%String,Msg:%String=""
%Integer
1
IP:%String,Type:%String,TimeframeInSecs
%Integer
TimeframeInSecs Do
.. Set Count=Count+1
. Else Do
.. Set OutOfTimeframe=1
Quit Count
]]>
------------------------------------------------------------------------------------------------------
1
IP:%String,Type:%String
1
expression
IP:%String,Type:%String
%Integer
1
expression
IP:%String,Type:%String
%Boolean
1
IP:%String,Type:%String,MaxWaitingPeriodInSecs
%Integer
0:TimeToWaitInSecs,1:0)
]]>
1
IP:%String,Type:%String,AllowedReportCount:%Integer
%Integer
1
IP:%String,Type:%String
------------------------------------------------------------------------------------------------------
1
AgentName:%String,IP:%String
%String
32000)) Do
. Set HDateTime=^Derde.Sys.IPAgent.Log(IP,AgentName,Count)
. If $P(HDateTime,",",1)'=HDate Do
.. Set HDate=$P(HDateTime,",",1)
.. Set Summary=Summary_$C(13,10)_$$FormatDateTime^vhLib("Dddd d mmmm yyyy",HDate)
. Set Summary=Summary_$C(13,10)_"- "_$ZT($P(HDateTime,",",2))_": "_ ^Derde.Sys.IPAgent.Log(IP,AgentName,Count,..#iplMsg)
Set:($L(Summary)>32000) Summary=Summary_$C(13,10)_"..."
Quit Summary
]]>
d ##class(BL.Sys.IPAgent).CleanOld()
1
Days:%Integer=7
HExpirationDate Do
.... Kill ^Derde.Sys.IPAgent.Log(IP,Type)
.... Set Next=1
.. Quit:(Next)
.. Set EarlyQuit=0
.. Set Count=""
.. For Set Count=$O(^Derde.Sys.IPAgent.Log(IP,Type,Count)) Quit:(Count="") Do Quit:(EarlyQuit)
... Set HDateTime=^Derde.Sys.IPAgent.Log(IP,Type,Count)
... Set HDay=$P(HDateTime,",",1)
... If HDay'>HExpirationDate Do
.... Kill ^Derde.Sys.IPAgent.Log(IP,Type,Count)
... Else Do
.... Set EarlyQuit=1
Quit
]]>
------------------------------------------------------------------------------------------------------
1
BL.Sys.Proxy.pxStatus
",IPAgent.lbMailTo,varReportCount_" opeenvolgende meldingen van "_IP,..GetSummary(AgentName,IP))
Quit Status
]]>
1
BL.Sys.Proxy.pxStatus