Imports System.Runtime.Serialization
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Language
Imports ECM.JobRunner.Common

Public Class GetJobConfig
    Public Class GetJobConfigMethod
        Inherits Base.BaseMethod

        Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer, pState As State)
            MyBase.New(pLogConfig, pDatabase, pState)
        End Sub

        Public Function Run() As GetJobConfigResponse
            Try
                Return New GetJobConfigResponse With {
                    .JobTypes = State.JobTypes,
                    .JobDefinitions = State.JobDefinitions,
                    .ProfileDefinitions = New GetJobConfigResponse.ProfileDefinitionConfig With {
                        .ImportProfiles = State.ProfileDefintions.ImportProfiles
                    },
                    .WindreamObjectTypes = State.ObjectTypes
                }
            Catch ex As Exception
                Logger.Error(ex)
                Return New GetJobConfigResponse() With {.OK = False, .ErrorMessage = ex.Message}
            End Try
        End Function


    End Class

    Public Class GetJobConfigResponse
        Inherits Base.BaseResponse

        <DataMember>
        Public Property JobTypes As List(Of JobType)

        <DataMember>
        Public Property WindreamObjectTypes As List(Of ObjectType)

        <DataMember>
        Public Property JobDefinitions As List(Of JobDefinition)

        <DataMember>
        Public Property ProfileDefinitions As New ProfileDefinitionConfig

        Public Class ProfileDefinitionConfig
            <DataMember>
            Public Property ImportProfiles As List(Of ImportProfile)
        End Class
    End Class

End Class