vhLib.Macro %RegisteredObject 1 1 1 DatabaseFileName:%String 1 "_InfoCurrent_" <> "_InfoPrevious) } } set InfoPrevious = InfoCurrent set Counter = Counter + 1 } if Counter < 2 { do Meldingen.Insert(Namespace_" "_Global_" ---> no shadow info. (Last check on " _ServerDatabase _" , value : " _InfoPrevious_")") } } } If (Problemen.Size > 0) || (Meldingen.Size > 0) { #dim From As %String = $$$SystemMail($$$Server) #dim To As %List = $listbuild("ICT_meldingen@vanhoecke.be") #dim Subject As %String = "" #dim Body As %String = "" If (Problemen.Size > 0) { Set Subject = "!!! Problemen met shadowing naar server "_$$$Server _" !!!" Set Body = "Er zijn verschillen gevonden. Controleer de globals in deze E-mail !" _$char(13,10) Set Body = Body _"(Sommige verschillen zoals bv logging zijn minder relevant en mogen genegeerd worden.)" _$char(13,10) Set Body = Body _##class(TECH.ListUtils).ListToPieces(Problemen,$char(13,10)) } If (Meldingen.Size > 0) { Set:(Subject="") Subject = "Controle shadowing naar server "_$$$Server Set Body = Body _$char(13,10) _"De wekelijkse controle heeft meldingen maar geen verschillen gedetecteerd ! " _$char(13,10) Set Body = Body _"(Geen shadow info is niet kritisch en mag genegeerd worden.)" _$char(13,10) Set Body = Body _##class(TECH.ListUtils).ListToPieces(Problemen,$char(13,10)) } Do SendMiniMail^vhLib.Mail(From,To,Subject,Body) } ]]> 1