srvr.Start
For Each h As JavaObject In GetHandlers
If GetType(h) = "org.eclipse.jetty.server.handler.RequestLogHandler" Then
Dim requestLog As JavaObject = h.RunMethod("getRequestLog", Null)
requestLog.RunMethod("setPreferProxiedForAddress", Array(True))
End If
Next
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"
jo = jo.RunMethodJO("getHandler", Null)
Loop
Return jo.RunMethod("getHandlers", Null)
End Sub