nate

Public Class ServiceManager

        Private Shared mgr As ServiceManager = Nothing
        Private docSvc As DocumentService = Nothing
        Private Shared security As EdmSecurity = Nothing
        Private Shared loginPreferences As Connectivity.Common.Vault.LoginPreferences
        Private Shared EdmLoginPreferences As EdmLoginPreferences

        Public Shared Function GetServiceManager() As ServiceManager

            If (mgr Is Nothing) Then
                mgr = New ServiceManager()
            End If

            Return mgr
        End Function

        Public Shared Function GetDocumentService() As DocumentService

            Dim mgr As ServiceManager = GetServiceManager()


            If (mgr.docSvc Is Nothing) And security.IsSignedIn Then
                mgr.docSvc = New DocumentService()

                'mgr.docSvc.Url = security.SecurityContext.RemoteHost
                mgr.docSvc.SecurityHeaderValue = New DocumentSvc.SecurityHeader()
                mgr.docSvc.SecurityHeaderValue.Ticket = security.SecurityContext.Ticket
                mgr.docSvc.SecurityHeaderValue.UserId = security.SecurityContext.UserID
            End If

            Return mgr.docSvc

        End Function

        Public Sub New()
            security = EdmSecurity.Instance
        End Sub
    End Class