I'm trying to interface with the DigitalOcean API using a HTTPJob, however, the URL (https://api.digitalocean.com/account) returns this:
I'm using an active Private Access Token and have no idea why it won't display my account info. Below is the code. (Thanks to @DonManfred for his open source DropBox API wrapper that showed me how to interface with APIs
)
B4X:
{"id":"not_found","message":"The resource you were accessing could not be found."}
I'm using an active Private Access Token and have no idea why it won't display my account info. Below is the code. (Thanks to @DonManfred for his open source DropBox API wrapper that showed me how to interface with APIs
B4X:
Sub Process_Globals
Private fx As JFX
Private DoApiUrlV2 As String = "https://api.digitalocean.com/v2/"
Public Bearer As String
Public DropletLimit, FloatingIPLimit, Email, UUID, Verified, Status, StatusMessage As String
End Sub
Sub GetAccountInfo
Log(DoApiUrlV2 & "account")
Dim GetAcc As HttpJob
GetAcc.Initialize("GetAccountInfo", Me)
GetAcc.PostString(DoApiUrlV2 & "account", Null)
GetAcc.GetRequest.SetHeader("Authorization", "Bearer " & Bearer)
GetAcc.GetRequest.SetHeader("Content-Type", "application/json")
GetAcc.GetRequest.SetContentType("application/json")
GetAcc.GetRequest.SetContentEncoding("text/plain")
End Sub
Private Sub HandleGetAccountInfo (Job As HttpJob, Res As String)
Dim Parser As JSONParser
Parser.Initialize(Res)
Dim Map As Map
Map.Initialize
Map = Parser.NextObject
DropletLimit = Map.Get("droplet_limit")
FloatingIPLimit = Map.Get("floating_ip_limit")
Email = Map.Get("email")
UUID = Map.Get("uuid")
Verified = Map.Get("verified")
Status = Map.Get("status")
StatusMessage = Map.Get("status_message")
End Sub