'Non-UI application (console / server application)
#Region Project Attributes
#CommandLineArgs:
#MergeLibraries: True
#End Region
Sub Process_Globals
Private srvr As Server
End Sub
Sub AppStart (Args() As String)
Try
srvr.Initialize("srvr")
srvr.Port = 53500
srvr.AddHandler("/reboot", "Reboot", False)
srvr.AddHandler("/shutdown", "shutdown", False)
srvr.Start
Log("Server started")
StartMessageLoop
Catch
Log("Not started !")
End Try
End Sub