Sub Class_Globals
Private mreq As ServletRequest 'ignore
Private mresp As ServletResponse 'ignore
Private oauth2 As GoogleOAuth2
End Sub
Public Sub Initialize
oauth2.Initialize(Me, "oauth2", Main.ClientId, "https://www.googleapis.com/auth/dialogflow", _
Main.ClientSecret, Main.DataFolder)
End Sub
Sub Handle(req As ServletRequest, resp As ServletResponse)
oauth2.GetAccessToken
Wait For OAuth2_AccessTokenAvailable (Success As Boolean, Token As String)
If Success = True Then
Log(Token)
Else
Return
End If
End Sub