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