Sub AppStart (Args() As String)
'redirect StdOut e StdErr to file
RedirectOutput(File.DirApp, "myappfile.txt")
DBstuff.InitDBStuff
srvr.Initialize("srvr")
..
srvr.StaticFilesFolder = File.Combine(File.DirApp, "www")
srvr.AddHandler("/hello", "hHello", False)
srvr.Start
StartMessageLoop
End Sub
Sub RedirectOutput (Dir As String, FileName As String)
#if RELEASE
Dim out As OutputStream = File.OpenOutput(Dir, FileName, False) 'Set to True to append the logs
Dim ps As JavaObject
ps.InitializeNewInstance("java.io.PrintStream", Array(out, True, "utf8"))
Dim jo As JavaObject
jo.InitializeStatic("java.lang.System")
jo.RunMethod("setOut", Array(ps))
jo.RunMethod("setErr", Array(ps))
#end if
End Sub