Classic ASP
Check PayPal Access Token Expiration

Checks to see if the PayPal access token expired.
Chilkat Classic ASP Downloads

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

' 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.

set json = Server.CreateObject("Chilkat.JsonObject")
success = json.LoadFile("qa_data/tokens/paypal.json")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Failed to load access key json file.") & "</pre>"
    Response.End
End If

' Get the current date/time.
set dateTime = Server.CreateObject("Chilkat.CkDateTime")
bLocalTime = 0
dtNow = dateTime.GetAsUnixTime(bLocalTime)

' Get the access token create date/time
dtCreate = json.IntOf("tokenCreateTimeUtc")

' Find out how many seconds have elapsed.
numSeconds = dtNow - dtCreate

' Get the expires_in value from the JSON.
expires_in = json.IntOf("expires_in")

Response.Write "<pre>" & Server.HTMLEncode( "token age (in seconds) = " & numSeconds) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "expires_in = " & expires_in) & "</pre>"

' If the token expired, or if it will expire in 5 minutes or less,
' get another token.
If (numSeconds < (expires_in - 300)) Then
    Response.Write "<pre>" & Server.HTMLEncode( "The token is not yet expired.  No need to fetch another.") & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Time to fetch a new access token...") & "</pre>"

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

%>
</body>
</html>