Index: Tools/Test/Report/Data.cls.xml
===================================================================
diff -u -r2784 -r3708
--- Tools/Test/Report/Data.cls.xml	(.../Data.cls.xml)	(revision 2784)
+++ Tools/Test/Report/Data.cls.xml	(.../Data.cls.xml)	(revision 3708)
@@ -24,10 +24,29 @@
 	Do ..LoadBlockedReason()
 	Do ..LoadRemarks()
 	
+	Do ..LogCspRequest()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="LogCspRequest">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LogDetail As %String = ""
+	#dim %request As %CSP.Request
+	#dim %session As %CSP.Session
+	If $IsObject($G(%request)) {
+		Set LogDetail = $G(%request.CgiEnvs("REMOTE_ADDR")) _ " " _$G(%request.CgiEnvs("REMOTE_USER")) _ 
+						$$$CRLF _ "Session : " _ $Select($IsObject($G(%session)):%session.SessionId, 1:"") _
+						$$$CRLF _ "Csp url : "_%request.URL _ 
+						$$$CRLF _ "UserAgent : " _ $G(%request.CgiEnvs("HTTP_USER_AGENT")) _ ""
+					; _	$$$CRLF _ $$ArrayToText^vhLib("CgiEnvs",%request,"CgiEnvs")   ; Dump alle CgiEnv-properties 
+		Set Logger = ##class(vhLib.Logger).%New("Tools.Test.Report.Data")
+		Do Logger.Debug("CspRequest BlockedReason",LogDetail)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="LoadBlockedReason">
 <Private>1</Private>
 <Implementation><![CDATA[	Set ..BlockedReason = $get(^SYS("SourceControl","SVN","GetLatestBlockedReason"))