add basic logging for webservices

This commit is contained in:
Jonathan Jenne 2020-09-23 10:12:20 +02:00
parent 36937abe4c
commit e71d9d7668

View File

@ -155,6 +155,8 @@ Public Class Winline
oURI &= $"?{oQuery}"
_Logger.Info("WebService Request: {0}", oURI)
Dim oRequest As HttpWebRequest = WebRequest.Create(oURI)
Dim oResponse As HttpWebResponse = DirectCast(oRequest.GetResponse(), HttpWebResponse)
Dim oXmlResponse As String
@ -163,6 +165,8 @@ Public Class Winline
oXmlResponse = oReader.ReadToEnd()
End Using
_Logger.Info("WebService Response: {0}", oXmlResponse)
Dim oDocument As New XmlDocument
oDocument.LoadXml(oXmlResponse)
oDocument.Save(Console.Out)