'Non-UI application (console application)
#Region Project Attributes
#CommandLineArgs:
#MergeLibraries: true
#AdditionalJar: mysql-connector-java-5.1.43-bin.jar
#End Region
Sub Process_Globals
Private srvr As Server
End Sub
Sub AppStart (Args() As String)
srvr.Initialize("srvr")
srvr.Port = 80
srvr.StaticFilesFolder = File.Combine(File.DirApp, "www")
srvr.LogsFileFolder = File.Combine(File.DirApp, "logs")
srvr.AddHandler("/hello", "HelloPage", False)
srvr.Start
Log("Server started")
StartMessageLoop
End Sub
'prints the requests parameters
Public Sub PrintAllParameters (req As ServletRequest) As String
Dim sb As StringBuilder
sb.Initialize
sb.Append("<ul>")
Dim params As Map = req.ParameterMap
For Each name As String In params.Keys
sb.Append("<li>").Append(name).Append(":")
Dim values() As String = params.Get(name)
For Each value As String In values
sb.Append(" ").Append(value)
Next
sb.Append("</li>")
Next
sb.Append("</ul>")
Return sb.ToString
End Sub