Index: vhLib/Logger.cls.xml
===================================================================
diff -u -r734 -r909
--- vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 734)
+++ vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 909)
@@ -1,10 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:12">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-16 13:28:34">
 <Class name="vhLib.Logger">
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62018,32105.307261</TimeChanged>
+<TimeChanged>62138,48570.379282</TimeChanged>
+<TimeCreated>62137,61022.12517</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Groep">
@@ -107,7 +108,7 @@
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	quit:$$$Not(##class(%Dictionary.CompiledMethod).%ExistsId(ClassName_"||"_Method))
-	new CompiledMethod , ctrParams
+	new CompiledMethod , ctrParams , Param , Values
 	
 	set CompiledMethod = ##class(%Dictionary.CompiledMethod).%OpenId(ClassName_"||"_Method)
 	for ctrParams = 1 : 1 : $listlength(CompiledMethod.FormalSpecParsed) do
@@ -150,6 +151,40 @@
 	quit
 ]]></Implementation>
 </Method>
+
+<Method name="ClearOldLogItems">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Days:%Integer=30</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set OldDateTime = $h-Days	
+	Set Server = $$$Server
+	&sql(DELETE FROM vhLib.Logging WHERE Datum<:OldDateTime AND Server=:Server)	
+	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>
-<Checksum value="2484409336"/>
+<Checksum value="2185134709"/>
 </Export>