Imports System.Xml.Serialization
Imports DigitalData.Modules.Logging

Public Class Serializer
    Inherits BaseClass
    Public Sub New(pLogConfig As LogConfig)
        MyBase.New(pLogConfig, pLogConfig.GetLogger())
    End Sub

    Public Function GetSerializer(pSchemaType As Type) As XmlSerializer
        Dim oSerializer As New XmlSerializer(pSchemaType)

        AddHandler oSerializer.UnknownAttribute, Sub(sender As Object, e As XmlAttributeEventArgs)
                                                     Logger.Debug("[{1}] Unknown Attribute: {0}", e.Attr, pSchemaType.Name)
                                                 End Sub

        AddHandler oSerializer.UnknownElement, Sub(sender As Object, e As XmlElementEventArgs)
                                                   Logger.Debug("[{1}] Unknown Element: {0}", e.Element, pSchemaType.Name)
                                               End Sub

        AddHandler oSerializer.UnknownNode, Sub(sender As Object, e As XmlNodeEventArgs)
                                                Logger.Debug("[{1}] Unknown Node: {0}", e.Name, pSchemaType.Name)
                                            End Sub

        AddHandler oSerializer.UnreferencedObject, Sub(sender As Object, e As UnreferencedObjectEventArgs)
                                                       Logger.Debug("[{1}] Unreferenced Object: {0}", e.UnreferencedId, pSchemaType.Name)
                                                   End Sub

        Return oSerializer
    End Function
End Class