AutoIt

Check PayPal Access Token Expiration

See more PayPal Examples

Checks to see if the PayPal access token expired. AutoIt

Local $bSuccess = False

;  Note: Requires Chilkat v9.5.0.64 or greater.

;  This requires the Chilkat API to have been previously unlocked.
;  See Global Unlock Sample for sample code.

;  In the example linked here: PayPal OAuth2 Token,
;  we fetched a PayPal access token and saved it to a JSON file.
;  We also recorded the current date/time.
;  Load this JSON file and compare the current date/time with the fetch date/time
;  and the "expires_in" value to see if the token is expired.

$oJson = ObjCreate("Chilkat.JsonObject")
$bSuccess = $oJson.LoadFile("qa_data/tokens/paypal.json")
If ($bSuccess <> True) Then
    ConsoleWrite("Failed to load access key json file." & @CRLF)
    Exit
EndIf

;  Get the current date/time.
$oDateTime = ObjCreate("Chilkat.CkDateTime")
Local $bLocalTime = False
Local $iDtNow = $oDateTime.GetAsUnixTime($bLocalTime)

;  Get the access token create date/time
Local $iDtCreate = $oJson.IntOf("tokenCreateTimeUtc")

;  Find out how many seconds have elapsed.
Local $iNumSeconds = $iDtNow - $iDtCreate

;  Get the expires_in value from the JSON.
Local $iExpires_in = $oJson.IntOf("expires_in")

ConsoleWrite("token age (in seconds) = " & $iNumSeconds & @CRLF)
ConsoleWrite("expires_in = " & $iExpires_in & @CRLF)

;  If the token expired, or if it will expire in 5 minutes or less,
;  get another token.
If ($iNumSeconds < ($iExpires_in - 300)) Then
    ConsoleWrite("The token is not yet expired.  No need to fetch another." & @CRLF)
    Exit
EndIf

ConsoleWrite("Time to fetch a new access token..." & @CRLF)

;  Get another token..
;  See the example at Get PayPal OAuth2 Token
;  to get another token..