Prepare Rights Management in DocumentResults

This commit is contained in:
Jonathan Jenne
2020-12-18 16:27:18 +01:00
parent fbc9a06764
commit 6ab3bef54d
3 changed files with 19 additions and 9 deletions

View File

@@ -132,21 +132,18 @@ Public Class ClassInit
If ConfigManager.Config.AppServerConfig <> String.Empty Then
Try
Dim oSplit() = ConfigManager.Config.AppServerConfig.ToString.Split(";")
Dim oAppServer = oSplit(0)
Dim oAppServerPort = 9000
Dim oSplit() As String = ConfigManager.Config.AppServerConfig.ToString.Split(":")
Dim oAppServerAddress As String = oSplit(0)
Dim oAppServerPort As Integer = 9000
If oSplit.Length = 2 Then
oAppServerPort = oSplit(1)
End If
_Client = New Client(LogConfig, oAppServer, oAppServerPort)
_Client = New Client(LogConfig, oAppServerAddress, oAppServerPort)
If Not IsNothing(_Client) Then
If _Client.Connect() Then
APPSERVER_ACTIVE = True
End If
End If
Catch ex As Exception
Logger.Warn($"Could not initialize the AppServer: {ex.Message}")
End Try