Listing S3 object keys

This example demonstrates listing the key names and last-modified dates of all object keys in our bucket that start with "MyPrefix/".

Note that the s3listobjects procedure fetches object keys in batches of up to 1000 - you will need to keep calling this procedure until the istruncated field is false to ensure you process all the keys.

You will need to fill in the model parameters with your own Amazon S3 access credentials.

model S3ListExample
uses "s3"

parameters
  S3_BUCKET_URL = ""
  S3_REGION = ""
  S3_ACCESS_KEY_ID = ""
  S3_SECRET_KEY = ""
end-parameters

declarations
  PREFIX="MyPrefix/"
  mybucket: s3bucket
  objslistresult: s3objectlist
end-declarations

! Configure 'mybucket' with our S3 access credentials
mybucket.url := S3_BUCKET_URL
mybucket.region := S3_REGION
mybucket.accesskeyid := S3_ACCESS_KEY_ID
mybucket.secretkey := S3_SECRET_KEY

repeat
  ! Request objects list
  s3listobjects( mybucket, PREFIX, "", objslistresult )

  ! Check for errors
  if s3status(mybucket)<>S3_OK then
    writeln("Error returned by S3 service: ", s3getlasterror(mybucket))
    exit(1)
  end-if

  ! Process objects returned
  forall (o in objslistresult.objects) do
    writeln('Object key:',o.key,', last-modified:',o.lastmodified)
  end-do

  ! Repeat until we've fetched the last batch of object keys
until not objslistresult.istruncated
	
end-model