Imports System.Xml
Imports System.Net
Imports System.Globalization
Imports AutoMapper
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Filesystem
Imports ImporterShared.Documents

Namespace Winline
    Public Class WebService
        Inherits BaseClass

        Private ReadOnly Config As Config
        Private ReadOnly Serializer As Serializer
        Private ReadOnly Mapper As AutoMapper.Mapper
        Private ReadOnly FileEx As File

        Public Sub New(pLogConfig As LogConfig, pConfig As Config)
            MyBase.New(pLogConfig, pLogConfig.GetLogger())
            FileEx = New File(pLogConfig)
            Serializer = New Serializer(pLogConfig)
            Config = pConfig
            Mapper = MapperFactory.GetMapper()
        End Sub

        Public Function TransferDocumentToWinLine(pDocument As Document) As Boolean
            If TypeOf pDocument.Data Is Schemas.Orders.Input.MESOWebService Then
                TransferOrderToWinline(pDocument)
            End If

            Return True
        End Function

        Private Function TransferOrderToWinline(pDocument As Document)
            Dim oOrderOutput = TransformOrderToOutput(pDocument.Data)
            Dim oWS As Config.WebServiceConfig = Config.Webservice
            Dim oFilePath = SerializeOrder(oOrderOutput)
            Dim oXmlString = IO.File.ReadAllText(oFilePath)
            pDocument.DataOutput = oOrderOutput

            Dim oURL As String = $"{oWS.BaseUrl}/ewlservice/import?User={oWS.Username}&Password={oWS.Password}&Company={pDocument.Mandator}&Type=30&Vorlage=EXIM-VRG_orders&ActionCode=1&Byref=0Data={oXmlString}"
            Dim oRequest = WebRequest.Create(oURL)
            oRequest.Method = "POST"

            Logger.Info("Creating HTTP Request to [{0}]", oWS.BaseUrl)

            ' TODO: Make better lol

            Using oResponse = oRequest.GetResponse()
                Using oStream = oResponse.GetResponseStream()
                    Using oReader As New IO.StreamReader(oStream)
                        Dim oData = oReader.ReadToEnd()

                    End Using
                End Using
            End Using

            Return True
        End Function

        Private Function TransformOrderToOutput(pData As Schemas.Orders.Input.MESOWebService) As Schemas.Orders.Output.MESOWebService
            Dim oData As Schemas.Orders.Input.MESOWebService = pData
            Dim oResult As Schemas.Orders.Output.MESOWebService = Mapper.Map(Of Schemas.Orders.Output.MESOWebService)(oData)

            Dim oItems = oData.Items.
            Select(Function(i)
                       If TypeOf i Is Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT025 Then
                           Return Mapper.Map(Of Schemas.Orders.Output.MESOWebServiceEXIMVRG_ordersT025)(i)
                       Else
                           Return Mapper.Map(Of Schemas.Orders.Output.MESOWebServiceEXIMVRG_ordersT026)(i)
                       End If
                   End Function).
            ToList()

            oResult.Items = oItems.ToArray()
            Return oResult
        End Function

        Private Function SerializeOrder(pData As Schemas.Orders.Output.MESOWebService) As String
            Dim oSerializer = Serializer.GetSerializer(GetType(Schemas.Orders.Output.MESOWebService))
            Dim oSettings As New XmlWriterSettings With {.Indent = True}

            Dim oPath As String = IO.Path.Combine(FileEx.GetAppDataPath("Digital Data", "EDI Document Importer"), "WebService")
            Dim oFileName As String = $"{Now:yyyy-MM-dd-ffff}.xml"
            Dim oFilePath As String = IO.Path.Combine(oPath, oFileName)

            If IO.Directory.Exists(oPath) = False Then
                IO.Directory.CreateDirectory(oPath)
            End If

            Using oWriter = XmlWriter.Create(oFilePath, oSettings)
                oSerializer.Serialize(oWriter, pData)
            End Using

            Return oFilePath
        End Function


    End Class

End Namespace