Sub Server_HandleRequest (Request As ServletRequest, Response As ServletResponse)
Try
Log("Client: " & Request.RemoteAddress)
Log(Request.RequestURI) 'handle the request based on the URL
Select True
Case Request.RequestURI = "/"
HandleMainPage (Response)
Case Request.RequestURI = "/Reboot/"
reboot
Case Request.RequestURI ="/Relink/"
restartlink
Case Request.RequestURI="/adb/"
adb
Case Request.RequestURI="/callme/"
call_me
Case Request.RequestURI="/shutdown/"
shutdown
End Select
Catch
Response.Status = 500
Log("Error serving request: " & LastException)
Response.SendString("Error serving request: " & LastException)
End Try
End Sub