From ae516226b6d77df7ddeff850675e54ba3a2822df Mon Sep 17 00:00:00 2001 From: alamaz Date: Thu, 3 Jan 2019 12:32:29 +0100 Subject: [PATCH] Compatibility with Google OAuth2 API v2 --- authenticators/GoogleAuthenticator.cls | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/authenticators/GoogleAuthenticator.cls b/authenticators/GoogleAuthenticator.cls index 5de15af5..579d4153 100644 --- a/authenticators/GoogleAuthenticator.cls +++ b/authenticators/GoogleAuthenticator.cls @@ -384,7 +384,7 @@ Private Function auth_LoginIsApproval(auth_IE As Object) As Boolean Dim auth_UrlParts As Dictionary Set auth_UrlParts = WebHelpers.GetUrlParts(auth_IE.LocationURL) - auth_LoginIsApproval = auth_UrlParts("Path") = "/o/oauth2/approval" + auth_LoginIsApproval = auth_UrlParts("Path") = "/o/oauth2/approval/v2/approvalnativeapp" End Function Private Function auth_LoginIsDenied(auth_IE As Object) As Boolean @@ -411,7 +411,7 @@ Private Function auth_LoginExtractCode(auth_IE As Object) As String If auth_LoginIsApproval(auth_IE) Then ' Extract authorization code For Each auth_Element In auth_IE.Document.Body.All - If VBA.UCase(auth_Element.NodeName) = "INPUT" Then + If VBA.UCase(auth_Element.NodeName) = "TEXTAREA" Then auth_LoginExtractCode = auth_Element.DefaultValue Exit Function End If