Index: TECH/Http/impl/PosterFileDumper.cls.xml
===================================================================
diff -u
--- TECH/Http/impl/PosterFileDumper.cls.xml	(revision 0)
+++ TECH/Http/impl/PosterFileDumper.cls.xml	(revision 872)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Http.impl.PosterFileDumper">
+<Super>TECH.RegisteredObject,TECH.Http.Poster</Super>
+
+<Property name="BestandLocatie">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BestandLocatie:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..BestandLocatie = BestandLocatie
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="PostMessage">
+<FormalSpec>Message:TECH.Http.Message</FormalSpec>
+<Implementation><![CDATA[
+	set File = ##class(TECH.File.FileWriter).%New(..GeefBestandVolledigeNaam())
+	
+	do File.WriteLine("ContextType : "_Message.ContentType)
+	do File.WriteLine("ContextEncoding : "_Message.ContextEncoding)
+	do File.WriteLine("Location : "_Message.Location)
+	do File.WriteLine("Server : "_Message.Server)
+	
+	do File.WriteLine("Params : ")
+	
+	set ParamIterator = ##class(TECH.ListIterator).%New(Message.Params)
+	while ParamIterator.HasNext() {
+		#dim Param As TECH.KeyValuePair = ParamIterator.Next()  
+		do File.WriteLine(Param.Key _ " = "_Param.Value)
+	}
+	
+	do File.WriteLine("Data :")
+	do File.WriteStream(Message.Data)
+	
+	do File.Close()
+	
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandVolledigeNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	do ##class(TECH.FrequentieTabel).Instance().Verhoog("Http.PosterFileDumper")
+		
+	#dim BestandNr As %String = ##class(TECH.FrequentieTabel).Instance().GeefFrequentieVanItem("Http.PosterFileDumper")
+	#dim BestandNaam As %String = "PostMessage"_##class(TECH.StringUtils).AlignRight(BestandNr,0,3)_".txt"
+	#dim BestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(..BestandLocatie,BestandNaam)
+	
+	quit BestandVolledigeNaam
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>