Index: Tools/DatabaseControle.cls.xml
===================================================================
diff -u -r3373 -r3415
--- Tools/DatabaseControle.cls.xml	(.../DatabaseControle.cls.xml)	(revision 3373)
+++ Tools/DatabaseControle.cls.xml	(.../DatabaseControle.cls.xml)	(revision 3415)
@@ -36,7 +36,8 @@
 <Method name="ControleerShadowLog">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	set Problemen = ##class(%ListOfDataTypes).%New()
+	Set Problemen = ##class(%ListOfDataTypes).%New()
+	Set Meldingen = ##class(%ListOfDataTypes).%New()
 	
 	#dim Namespace As %String = 0
 	
@@ -58,17 +59,33 @@
 				set Counter = Counter + 1
 			}
 			if Counter < 2 {
-				do Problemen.Insert(Namespace_" "_Global_" ---> no shadow info")
+				do Meldingen.Insert(Namespace_" "_Global_" ---> no shadow info. (Last check on " _ServerDatabase _" , value : " _InfoPrevious_")")
 			}
 		}
 	}
-	
-	if Problemen.Size > 0 {
+
+	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 = "Problemen met shadowing naar server "_$$$Server
-		#dim Body As %String = ##class(TECH.ListUtils).ListToPieces(Problemen,$char(13,10))
-		do SendMiniMail^vhLib.Mail(From,To,Subject,Body)
+		#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)
 	}
 ]]></Implementation>
 </Method>