Index: vhLib/Logger.cls.xml
===================================================================
diff -u -r2 -r29
--- vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 2)
+++ vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 29)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="vhLib.Logger">
+<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -21,7 +22,6 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Groep = Groep 
-	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -57,7 +57,7 @@
 </Method>
 
 <Method name="ErrorMail">
-<FormalSpec>Actie:%String,Detail:%String,blnSendMail:%Boolean=0</FormalSpec>
+<FormalSpec>Actie:%String,Detail:%String</FormalSpec>
 <ReturnType>Logging</ReturnType>
 <Implementation><![CDATA[	Quit ..AddToLog("E",.Actie, .Detail , 1 )
 ]]></Implementation>
@@ -71,7 +71,7 @@
 </Method>
 
 <Method name="InfoMail">
-<FormalSpec>Actie:%String,Detail:%String,blnSendMail:%Boolean=0</FormalSpec>
+<FormalSpec>Actie:%String,Detail:%String</FormalSpec>
 <ReturnType>Logging</ReturnType>
 <Implementation><![CDATA[	Quit ..AddToLog("I",.Actie, .Detail , 1 )
 ]]></Implementation>
@@ -87,10 +87,110 @@
 <Method name="GetMailFields">
 <FormalSpec><![CDATA[&From:%String,&lbTo:%List,&Subj:%String,SubjInfo:%String="Error"]]></FormalSpec>
 <Implementation><![CDATA[
-	Set From="""den ADMIN"" <denADMIN@vanhoecke.be>"
-	Set lbTo=$LB("ICT_SysOp@vanhoecke.be")
+	Set From=$$$SystemMail("Logger")
+	Set lbTo=$listbuild(..GetMailAddress())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="GetMailAddress">
+<Implementation><![CDATA[
+	Set User=$$$IctUserFromIP($$GetClientIP^vhLib)
+	Quit:($Length(User)) User_"@vanhoecke.be"
+	Set MailTo = ##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Error.impl.ErrorHandler_DefaultMailAddress")
+	Quit MailTo
+]]></Implementation>
+</Method>
+
+<Method name="LogIncomming">
+<FormalSpec>ClassName,Method</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	quit:$$$Not(##class(%Dictionary.CompiledMethod).%ExistsId(ClassName_"||"_Method))
+	new CompiledMethod , ctrParams , Param , Values
+	
+	set CompiledMethod = ##class(%Dictionary.CompiledMethod).%OpenId(ClassName_"||"_Method)
+	for ctrParams = 1 : 1 : $listlength(CompiledMethod.FormalSpecParsed) do
+	. set Param = $listget($listget(CompiledMethod.FormalSpecParsed,ctrParams),1)
+	. set Values(Param) = $get(@Param)
+	
+	do ..LogInfo(CompiledMethod.Name _ " IN ",.Values)
+]]></Implementation>
+</Method>
+
+<Method name="LogOutgoing">
+<FormalSpec>ClassName,Method,Result</FormalSpec>
+<Implementation><![CDATA[
+	set Values(Method) = Result
+	do ..LogInfo(Method _ " OUT ",.Values)
+]]></Implementation>
+</Method>
+
+<Method name="LogInfo">
+<FormalSpec><![CDATA[Label,&Values]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set Info = ""
+	set Name=""
+	for  { set Name = $order(Values(Name)) quit:Name="" 
+	  set Value = Values(Name)
+	  
+	  if $IsObject(Value) { 
+	  	do Value.XMLExportToString(.XML,,"literal,indent") 
+	   	set Info = Info _ Name _"="_ $$$CRLF  _ XML _ $$$CRLF 
+	  } 
+	  else {
+		set Info = Info _ Name _"="_ $$$CRLF  _Value _ $$$CRLF 
+	  }
+	  
+	}
+
+	do ..Info(Label, Info)
+	
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="ClearOldLogItems">
+<Description>
+Do ##class(vhLib.Logger).ClearOldLogItems(30,30,10,10)</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>DaysError:%Integer=30,DaysWarning:%Integer=30,DaysInformation:%Integer=10,DaysDebug:%Integer=10</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set OldDateTimeError = $h-DaysError	
+	Set OldDateTimeWarning = $h-DaysWarning
+	Set OldDateTimeInformation = $h-DaysInformation
+	Set OldDateTimeDebug = $h-DaysDebug
+	Set Server = $$$Server
+	&sql(DELETE FROM vhLib.Logging WHERE Datum<:OldDateTimeError AND Server=:Server AND Niveau = 'E')	
+	&sql(DELETE FROM vhLib.Logging WHERE Datum<:OldDateTimeWarning AND Server=:Server AND Niveau = 'W')	
+	&sql(DELETE FROM vhLib.Logging WHERE Datum<:OldDateTimeInformation AND Server=:Server AND Niveau = 'I')	
+	&sql(DELETE FROM vhLib.Logging WHERE Datum<:OldDateTimeDebug AND Server=:Server AND Niveau = 'D')	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="InitTask">
+<Description>
+Maakt de task aan voor de scheduler van caché, dit moet slechts éénmalig worden uitgevoerd
+Do ##class(vhLib.Logger).InitTask()</Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Task = ##Class(%SYSTEM.Task).%New()
+	Set Task.Name = "Logging "_$zu(5)_"opkuisen"
+	Set Task.Description = "LogItems opkuisen op "_$zu(5)_" die ouder zijn dan de opgegeven aantal dagen"
+	Set Task.NameSpace = $zu(5)   ; Assign to namespace
+	Set Task.ExecuteCode = "Do ##class(vhLib.Logger).ClearOldLogItems(30)"
+	Set Task.DailyFrequency = 1			;Several times a day
+	Set Task.DailyFrequency = 0		;Once a day
+	Set Task.DailyStartTime = 82800 ; 23h00
+	Set Task.RescheduleOnStart = 1
+	Set Task.ContinueAfterError = 1
+	Set rc = Task.%Save()
+	Quit rc
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: vhLib/Logging.cls.xml
===================================================================
diff -u -r5 -r29
--- vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 5)
+++ vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 29)
@@ -104,35 +104,48 @@
 <Unique>1</Unique>
 </Index>
 
+<Index name="IndexOnDatumTijdSubID">
+<Data>Datum,Tijd,SubID</Data>
+<Properties>Datum,Tijd,SubID</Properties>
+</Index>
+
 <Index name="IndexOnServer">
+<Data>Server</Data>
 <Properties>Server</Properties>
 </Index>
 
 <Index name="IndexOnNamespace">
+<Data>Namespace</Data>
 <Properties>Namespace</Properties>
 </Index>
 
 <Index name="IndexOnDatum">
+<Data>Datum</Data>
 <Properties>Datum</Properties>
 </Index>
 
 <Index name="IndexOnTijd">
+<Data>Tijd</Data>
 <Properties>Tijd</Properties>
 </Index>
 
 <Index name="IndexOnNiveau">
+<Data>Niveau</Data>
 <Properties>Niveau</Properties>
 </Index>
 
 <Index name="IndexOnActie">
+<Data>Actie</Data>
 <Properties>Actie</Properties>
 </Index>
 
 <Index name="IndexOnGroep">
+<Data>Groep</Data>
 <Properties>Groep</Properties>
 </Index>
 
 <Index name="IndexOnSubID">
+<Data>SubID</Data>
 <Properties>SubID</Properties>
 </Index>
 
@@ -187,7 +200,7 @@
 	Set ..Server = $$$Server
 	Set ..Namespace = $$$NSpace 
 	Set ..Groep = $G(Groep)
-	Set ..MainIndex = ..Server_"_"_..Namespace_"_"_..Groep
+	Set ..MainIndex = ..Server_"_"_..Namespace
 	Do ..SetSubID()
 	Set ..Niveau = $G(Niveau)
 	Set ..JobID = $Job