AARW#25379 Logging van de XML mogelijk maken

svn path=/Website/branches/v5.2.3/; revision=16524

APPL/API/api_mldsoap.asp

@@ -28,6 +28,23 @@
     Session.Codepage = 65001;
     Response.Charset = 'utf-8';
 
+// Zet de loglevel in de API op 1 om de xml te loggen naar de TEMP folder
+function XML2TEMP(xml, postfix)
+{
+    if (!API.apidata.loglevel) return;
+    var in_file = Server.MapPath("./temp") + "/" + customerId + "_" + APIname + "_" + postfix + "_";
+    var jsDate = new Date();
+    var s = String(jsDate.getFullYear()) + padout(jsDate.getMonth() + 1) + padout(jsDate.getDate())
+          + padout(jsDate.getHours()) + padout(jsDate.getMinutes()) + padout(jsDate.getSeconds())
+    in_file = in_file + s + ".xml";
+    //Response.Write(in_file);Response.End;
+
+    var fs  = Server.CreateObject("Scripting.FileSystemObject");
+    var ts  = fs.CreateTextFile(in_file, true, -1); // -1 voor de Unicode
+    ts.WriteLine (xml);                             // Anders hier Invalid procedure call or argument
+    ts.Close();
+}
+
 // CreateFullPath moet hier weg bij overnemen naar trunk 531!
 function CreateFullPath(sPath)
 {
@@ -58,6 +75,8 @@ function CreateFullPath(sPath)
     var xmlReq = Server.CreateObject("MSXML2.DOMDocument.4.0");
     xmlReq.load(Request);
 
+    XML2TEMP(xmlReq.xml, "IN");
+
     var xmlResp = new ActiveXObject("MSXML2.DOMDocument.4.0");
     xmlResp.appendChild(xmlResp.createProcessingInstruction("xml", "version=\"1.0\" encoding=\"utf-8\""))