Scheduled Tasks Web Service

Public Class ServiceLayer



    ''' <summary>
    ''' Get a reference to the Scheduler Service
    ''' </summary>
    Private Shared Function GetSchedulerService() As Scheduler.Scheduler
        Try
            'Create a reference to the service
            GetSchedulerService = New Scheduler.Scheduler
            'Check if we have setup another URL as a reference
            If System.Configuration.ConfigurationManager.AppSettings.Get("SchedulerURL") IsNot Nothing AndAlso _
            System.Configuration.ConfigurationManager.AppSettings.Get("SchedulerURL").Trim.Length > 0 Then
                GetSchedulerService.Url = System.Configuration.ConfigurationManager.AppSettings.Get("SchedulerURL")
            End If
        Catch ex As Exception
            Return Nothing
        End Try
    End Function


    ''' <summary>
    ''' Makes a call to the Scheduler Service to keep it alive
    ''' </summary>
    Public Shared Sub KeepServiceAlive()
        'Keep alive the service
        GetSchedulerService.KeepAlive()
    End Sub


    ''' <summary>
    ''' Gets the list of Task Scheduled on the servier
    ''' </summary>
    Public Shared Function GetTaskList() As SchedulerService.Entities.ScheduleTaskDataset
        'Get the task list
        Dim serviceData As Scheduler.ScheduleTaskDataset
        serviceData = GetSchedulerService.GetTaskList
        'Convert from web service object to local object
        GetTaskList = New SchedulerService.Entities.ScheduleTaskDataset
        GetTaskList.Merge(serviceData, False, MissingSchemaAction.Ignore)
    End Function


    ''' <summary>
    ''' Get a list of all Available tasjs
    ''' </summary>
    Public Shared Function GetAvailableTasks() As String()
        Return GetSchedulerService.GetAvailableTasks()
    End Function


    ''' <summary>
    ''' Updates the Schediule task list 
    ''' </summary>
    ''' <param name="TaskListData">The Scheduled Tasks</param>
    ''' <returns>True if success</returns>
    Public Shared Function UpdateScheduleTaskList(ByVal TaskListData As SchedulerService.Entities.ScheduleTaskDataset) As Boolean
        'Convert from Local to Service object
        Dim serviceData As New Scheduler.ScheduleTaskDataset
        serviceData.Merge(TaskListData, False, MissingSchemaAction.Ignore)
        'Update and return result
        Return GetSchedulerService.UpdateTaskList(serviceData)
    End Function

End Class