PowerBuilder Stripe: List all Events

Back to Index

List events, going back up to 30 days.

Documentation: https://stripe.com/docs/api/curl#list_events

CURL Command

curl https://api.stripe.com/v1/events?limit=3 \
   -u STRIPE_SECRET_KEY: \
   -G

PowerBuilder Example

integer li_rc
oleobject loo_Rest
integer li_Success
integer li_BTls
integer li_Port
integer li_BAutoReconnect
oleobject loo_SbResponseBody
oleobject loo_JsonResponse
string ls_Object
string ls_Url
integer li_Has_more
integer i
integer li_Count_i
string ls_Id
integer li_Api_version
integer li_Created
string ls_DataObjectId
string ls_DataObjectObject
integer li_DataObjectAmount
integer li_DataObjectCreated
string ls_DataObjectCurrency
string ls_DataObjectInterval
integer li_DataObjectInterval_count
integer li_DataObjectLivemode
string ls_DataObjectName
integer li_DataObjectStatement_descriptor
integer li_DataObjectTrial_period_days
integer li_Livemode
integer li_Pending_webhooks
integer li_RequestId
integer li_RequestIdempotency_key
string ls_Type

loo_Rest = create oleobject
li_rc = loo_Rest.ConnectToNewObject("Chilkat_9_5_0.Rest")
if li_rc < 0 then
    destroy loo_Rest
    MessageBox("Error","Connecting to COM object failed")
    return
end if

//  URL: https://api.stripe.com/v1/events?limit=3
li_BTls = 1
li_Port = 443
li_BAutoReconnect = 1
li_Success = loo_Rest.Connect("api.stripe.com",li_Port,li_BTls,li_BAutoReconnect)
if li_Success <> 1 then
    Write-Debug "ConnectFailReason: " + string(loo_Rest.ConnectFailReason)
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    return
end if

loo_Rest.SetAuthBasic("STRIPE_SECRET_KEY","")

loo_SbResponseBody = create oleobject
li_rc = loo_SbResponseBody.ConnectToNewObject("Chilkat_9_5_0.StringBuilder")

li_Success = loo_Rest.FullRequestNoBodySb("GET","/v1/events?limit=3",loo_SbResponseBody)
if li_Success <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    destroy loo_SbResponseBody
    return
end if

loo_JsonResponse = create oleobject
li_rc = loo_JsonResponse.ConnectToNewObject("Chilkat_9_5_0.JsonObject")

loo_JsonResponse.LoadSb(loo_SbResponseBody)

ls_Object = loo_JsonResponse.StringOf("object")
ls_Url = loo_JsonResponse.StringOf("url")
li_Has_more = loo_JsonResponse.BoolOf("has_more")
i = 0
li_Count_i = loo_JsonResponse.SizeOfArray("data")
do while i < li_Count_i
    loo_JsonResponse.I = i
    ls_Id = loo_JsonResponse.StringOf("data[i].id")
    ls_Object = loo_JsonResponse.StringOf("data[i].object")
    li_Api_version = loo_JsonResponse.IsNullOf("data[i].api_version")
    li_Created = loo_JsonResponse.IntOf("data[i].created")
    ls_DataObjectId = loo_JsonResponse.StringOf("data[i].data.object.id")
    ls_DataObjectObject = loo_JsonResponse.StringOf("data[i].data.object.object")
    li_DataObjectAmount = loo_JsonResponse.IntOf("data[i].data.object.amount")
    li_DataObjectCreated = loo_JsonResponse.IntOf("data[i].data.object.created")
    ls_DataObjectCurrency = loo_JsonResponse.StringOf("data[i].data.object.currency")
    ls_DataObjectInterval = loo_JsonResponse.StringOf("data[i].data.object.interval")
    li_DataObjectInterval_count = loo_JsonResponse.IntOf("data[i].data.object.interval_count")
    li_DataObjectLivemode = loo_JsonResponse.BoolOf("data[i].data.object.livemode")
    ls_DataObjectName = loo_JsonResponse.StringOf("data[i].data.object.name")
    li_DataObjectStatement_descriptor = loo_JsonResponse.IsNullOf("data[i].data.object.statement_descriptor")
    li_DataObjectTrial_period_days = loo_JsonResponse.IsNullOf("data[i].data.object.trial_period_days")
    li_Livemode = loo_JsonResponse.BoolOf("data[i].livemode")
    li_Pending_webhooks = loo_JsonResponse.IntOf("data[i].pending_webhooks")
    li_RequestId = loo_JsonResponse.IsNullOf("data[i].request.id")
    li_RequestIdempotency_key = loo_JsonResponse.IsNullOf("data[i].request.idempotency_key")
    ls_Type = loo_JsonResponse.StringOf("data[i].type")
    i = i + 1
loop


destroy loo_Rest
destroy loo_SbResponseBody
destroy loo_JsonResponse

Sample JSON Response Body

{
  "object": "list",
  "url": "/v1/events",
  "has_more": false,
  "data": [
    {
      "id": "evt_1BnETJGswQrCoh0XAl7jSmFB",
      "object": "event",
      "api_version": null,
      "created": 1516662781,
      "data": {
        "object": {
          "id": "gold",
          "object": "plan",
          "amount": 2000,
          "created": 1516662781,
          "currency": "usd",
          "interval": "month",
          "interval_count": 1,
          "livemode": false,
          "metadata": {},
          "name": "T-shirt",
          "statement_descriptor": null,
          "trial_period_days": null
        }
      },
      "livemode": false,
      "pending_webhooks": 0,
      "request": {
        "id": null,
        "idempotency_key": null
      },
      "type": "plan.created"
    }
  ]
}