srvr.Start
For Each h As JavaObject In GetHandlers
If GetType(h) = "org.eclipse.jetty.server.handler.RequestLogHandler" Then
Dim NCSARequestLog As JavaObject
NCSARequestLog.InitializeNewInstance("org.eclipse.jetty.server.NCSARequestLog", Array(File.Combine(srvr.LogsFileFolder, _
"my-format-must-include_yyyy_mm_dd.txt")))
NCSARequestLog.RunMethod("setRetainDays", Array(srvr.LogsRetainDays))
NCSARequestLog.RunMethod("setExtended", Array(True))
NCSARequestLog.RunMethod("setAppend", Array(True))
NCSARequestLog.RunMethod("start", Null)
h.RunMethod("setRequestLog", Array(NCSARequestLog))
End If
Next
StartMessageLoop
End Sub
Sub GetHandlers As Object()
Dim josrvr As JavaObject = srvr
josrvr = josrvr.GetField("server")
Dim jo As JavaObject = josrvr
Do While GetType(jo) <> "org.eclipse.jetty.server.handler.HandlerCollection"
Log(jo)
Log(jo.RunMethodJO("getHandler", Null))
jo = jo.RunMethodJO("getHandler", Null)
Loop
Return jo.RunMethod("getHandlers", Null)
End Sub