'Set Jetty Logging Level
'Parameter: Level. Possible values: ALL|DEBUG|INFO|WARN|OFF
'See: http://download.eclipse.org/jetty/9.3.6.v20151106/apidocs/org/eclipse/jetty/util/log/StdErrLog.html
'Note: Be aware that logging contains important info. Default is INFO
'Example:
'Sub AppStart (Args() As String)
' SetLoggingLevel("OFF")
' srvr.Initialize("srvr")
Sub SetLoggingLevel(level As String)
Log("Set Logging Level to " & level.ToUpperCase)
If level.Length = 0 Then Return
Dim joJ As JavaObject 'Jetty Object
Dim joP As JavaObject 'Properties Object
joP.InitializeNewInstance("java.util.Properties", Null)
joP.RunMethod("setProperty", Array("org.eclipse.jetty.LEVEL", level.ToUpperCase))
joJ.InitializeNewInstance("org.eclipse.jetty.util.log.StdErrLog", Array("JettyLog", joP))
End Sub