Sub Process_Globals
Private fs As FirebaseServer
End Sub
Sub AppStart (Args() As String)
fs.Initialize("fs", File.OpenInput(File.DirAssets, "B4A-Test1-1878011f6afe.json"))
fs.VerifyToken("eyJhbGciOiJSUzI1NiIsImtpZCI6IjE1ZWE4ZDBkMDI1ZDExNGFiNzU0MmQ2OT...")
StartMessageLoop
End Sub
Sub fs_TokenVerified (TokenId As String, Success As Boolean, Token As FirebaseToken)
If Success Then
Log(Token.DisplayName)
Log(Token.Email)
Log(Token.Uid)
End If
End Sub