Prepare Rights Management in DocumentResults
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user