Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Perl) Google Drive Refresh Access TokenDemonstrates how to automatically refresh the access token when it expires.
use chilkat(); $success = 1; # It requires the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. # This example uses a previously obtained access token having permission for the # Google Drive scope. # The access token (and refresh token) was previously saved to a JSON file with this format: # See Get Google Drive OAuth2 Access Token # { # "access_token": "ya29.Gls-BsdxTWuenChv ... yzVIrXikkLxu5T6dy4I6GjADFardoz4Lruw", # "expires_in": 3600, # "refresh_token": "1/tMBJ ... 27D-Hk6rpQYBA", # "scope": "https://www.googleapis.com/auth/drive", # "token_type": "Bearer" # } $json = chilkat::CkJsonObject->new(); $tokenFilePath = "qa_data/tokens/googleDrive.json"; $json->LoadFile($tokenFilePath); $oauth2 = chilkat::CkOAuth2->new(); $oauth2->put_AccessToken($json->stringOf("access_token")); $oauth2->put_RefreshToken($json->stringOf("refresh_token")); $rest = chilkat::CkRest->new(); # Connect using TLS. $bAutoReconnect = 1; $success = $rest->Connect("www.googleapis.com",443,1,$bAutoReconnect); # Provide the authentication credentials (i.e. the access token) $rest->SetAuthOAuth2($oauth2); # We'll test with a simple request to empty trash. # If our access token expired, we'll get a 401 response.. $jsonResponse = $rest->fullRequestNoBody("DELETE","/drive/v3/files/trash"); if ($rest->get_LastMethodSuccess() != 1) { print $rest->lastErrorText() . "\r\n"; exit; } # If the access token expired, we'll get a 401 response status with this response body: # { # "error": { # "errors": [ # { # "domain": "global", # "reason": "authError", # "message": "Invalid Credentials", # "locationType": "header", # "location": "Authorization" # } # ], # "code": 401, # "message": "Invalid Credentials" # } # } if ($rest->get_ResponseStatusCode() == 401) { print "Refreshing access token..." . "\r\n"; $oauth2->put_AuthorizationEndpoint("https://accounts.google.com/o/oauth2/v2/auth"); $oauth2->put_TokenEndpoint("https://www.googleapis.com/oauth2/v4/token"); # Replace these with actual values. $oauth2->put_ClientId("GOOGLE-CLIENT-ID"); $oauth2->put_ClientSecret("GOOGLE-CLIENT-SECRET"); $oauth2->put_Scope("https://www.googleapis.com/auth/drive"); # Use OAuth2 to refresh the access token. $success = $oauth2->RefreshAccessToken(); if ($success != 1) { print $oauth2->lastErrorText() . "\r\n"; exit; } # Save the new access token to our XML file (so we can refresh it again when needed). $json->UpdateString("access_token",$oauth2->accessToken()); $fac = chilkat::CkFileAccess->new(); $fac->WriteEntireTextFile($tokenFilePath,$json->emit(),"utf-8",0); print "Access Token Refreshed!" . "\r\n"; # Retry the request with the new access token.. $jsonResponse = $rest->fullRequestNoBody("DELETE","/drive/v3/files/trash"); if ($rest->get_LastMethodSuccess() != 1) { print $rest->lastErrorText() . "\r\n"; exit; } } # A successful response will have a status code equal to 204 and the response body is empty. # (If not successful, then there should be a JSON response body with information..) if ($rest->get_ResponseStatusCode() != 204) { print "response status code = " . $rest->get_ResponseStatusCode() . "\r\n"; print "response status text = " . $rest->responseStatusText() . "\r\n"; print "response header: " . $rest->responseHeader() . "\r\n"; print "response JSON: " . $jsonResponse . "\r\n"; exit; } print "Trash Emptied!" . "\r\n"; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.