'Non-UI application (console / server application)
#Region Project Attributes
#AdditionalJar: sqlite-jdbc-3.36.0.3
' #CommandLineArgs: "Port_17200_ShorttClock.properties"
#MergeLibraries: True
#End Region
Sub Process_Globals
Public srvr As Server
Public rdcConnector1 As RDCConnector
Public const VERSION As Float = 2.23
Type DBCommand (Name As String, Parameters() As Object)
Type DBResult (Tag As Object, Columns As Map, Rows As List)
Public IPAddress As String
Public configMapFileArg As String
End Sub
Sub AppStart (Args() As String)
Dim configMap As Map
Try
configMap = File.ReadMap(File.DirAssets, "Port_17200_ShorttClock.properties")
Catch
ExitApplication2(-1)
End Try
If configMap.Size = 0 Then
ExitApplication2(-2)
End If
srvr.Initialize("")
rdcConnector1.Initialize(configMap)
srvr.Port = rdcConnector1.serverPort
srvr.AddHandler("/test", "TestHandler", False)
srvr.AddHandler("/rdc", "RDCHandler", False)
srvr.Start
Log($"jRDC is running (version = $1.2{VERSION})"$)
StartMessageLoop
End Sub