Public Sub Filter(req As ServletRequest, resp As ServletResponse)
dim result(1) as object
result(0) = False
VerifyToken(req.GetHeader("Authorization"),req, result) 'Return?
StartMessageLoop
return result(0)
End Sub
Private Sub VerifyToken(auth_token As String,req As ServletRequest, result() as object) As ResumableSub
fs.VerifyToken(auth_token)
Wait For fs_TokenVerified(TokenId As String, Success As Boolean, Token As FirebaseToken)
result(0) = Success
StopMessageLoop
Return Success
End Sub
[code]