Index: APPS/Monitoring/ImageSynchronisatieWWWHttpControle.cls.xml
===================================================================
diff -u
--- APPS/Monitoring/ImageSynchronisatieWWWHttpControle.cls.xml	(revision 0)
+++ APPS/Monitoring/ImageSynchronisatieWWWHttpControle.cls.xml	(revision 31440)
@@ -0,0 +1,101 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Monitoring.ImageSynchronisatieWWWHttpControle">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<Super>APPS.Monitoring.ImageSynchronisatieWWW</Super>
+
+<Method name="StartInBackground">
+<Description>
+Oproepen via: 
+	Do ##class(APPS.Monitoring.ImageSynchronisatieWWWHttpControle).StartInBackground()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Job $classmethod(..%ClassName($$$True),"Start")
+]]></Implementation>
+</Method>
+
+<Method name="Stop">
+<Description>
+Oproepen via: 
+	Do ##class(APPS.Monitoring.ImageSynchronisatieWWWHttpControle).Stop()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	// Stop Running In Background
+	Do ..ZetGlobal(0)
+]]></Implementation>
+</Method>
+
+<Method name="Start">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Try {
+		do ##class(APPS.common.RuntimeInitialiser).Initialise()
+		Do ..%New().RunAtInterval(600-8)
+	}
+	Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(vhLib.Logger).%New("MONITORING").ErrorMail("ImageSynchronisatieWWW",Exception.ToString())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="RunAtInterval">
+<FormalSpec>RepeatIntervalInSEC:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Lock ^WV.ImageSyncWWWHttpControle:2  Else  Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New("Already locked : "_$Na(^WV.ImageSyncWWWHttpControle)_" - job not started."))
+	
+	Do ..Run()
+
+	Do ..ZetGlobal(1)
+	#dim HangTime As %Integer = 1
+	#dim TimeBeforeRun As %Integer = RepeatIntervalInSEC
+	While ($G(^WV.ImageSyncWWWHttpControle("RUN"))=1)&&(TimeBeforeRun>0) {
+		Set TimeBeforeRun = TimeBeforeRun - HangTime
+		If ($$$Not(TimeBeforeRun>0)) {
+			Do ..Run()
+			Set TimeBeforeRun = RepeatIntervalInSEC
+		}
+		Hang HangTime
+	}
+	Do ..ZetGlobal(0)
+	Lock -^WV.ImageSyncWWWHttpControle
+]]></Implementation>
+</Method>
+
+<Method name="Run">
+<Description>
+Oproepen via: 
+	Do ##class(APPS.Monitoring.ImageSynchronisatieWWWHttpControle).%New().Run()</Description>
+<Implementation><![CDATA[
+	Do ##class(vhLib.Logger).%New("MONITORING").Info("ImageSynchronisatieWWW","HttpControle gestart.")
+
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="ValideerData">
+<FormalSpec>Data:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	do ##class(vhLib.Logger).%New("MONITORING").Info("ImageSynchronisatieWWW","HttpControle : "_..BestandsnaamWWW()_" is ontvangen via HttpGet. Geen validatie van de timestamp.")
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfBestand">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ##class(vhLib.Logger).%New("MONITORING").Info("ImageSynchronisatieWWW","HttpControle is read-only. Er wordt geen nieuw bestandje geplaatst.")
+]]></Implementation>
+</Method>
+
+<Method name="ZetGlobal">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Waarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Set ^WV.ImageSyncWWWHttpControle("RUN")=Waarde
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>