Visual FoxPro

AWS Secrets Manager - List Secrets

See more AWS Secrets Manager Examples

Lists the secrets that are stored by Secrets Manager in the AWS account. Lists the secrets that are stored by Secrets Manager in the AWS account. Visual FoxPro

LOCAL lnSuccess
LOCAL loRest
LOCAL lnBTls
LOCAL lnPort
LOCAL lnBAutoReconnect
LOCAL loAuthAws
LOCAL lcStrResponse
LOCAL lnRespStatusCode
LOCAL loJResp
LOCAL lcARN
LOCAL lcDescription
LOCAL lcLastChangedDate
LOCAL lcName
LOCAL lcStrVal
LOCAL loJson2
LOCAL loJarr
LOCAL i
LOCAL lnCount_i
LOCAL lnCount
LOCAL j
LOCAL lcVersionName
LOCAL lcStage

lnSuccess = 0

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* Sends the following sample request.
* Note: Chilkat will automatically add Content-Length, X-Amz-Date, Accept-Encoding, and Authorization

* POST / HTTP/1.1
* Host: secretsmanager.region.domain
* Accept-Encoding: identity
* X-Amz-Target: secretsmanager.ListSecrets
* Content-Type: application/x-amz-json-1.1
* X-Amz-Date: <date>
* Authorization: AWS4-HMAC-SHA256 Credential=<credentials>,SignedHeaders=<headers>, Signature=<signature>
* Content-Length: <payload-size-bytes>
* 
* {}

loRest = CreateObject('Chilkat.Rest')

* Connect to the Amazon AWS REST server.
* such as https://secretsmanager.us-west-2.amazonaws.com/
lnBTls = 1
lnPort = 443
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("secretsmanager.us-west-2.amazonaws.com",lnPort,lnBTls,lnBAutoReconnect)

* Provide AWS credentials for the REST call.
loAuthAws = CreateObject('Chilkat.AuthAws')
loAuthAws.AccessKey = "AWS_ACCESS_KEY"
loAuthAws.SecretKey = "AWS_SECRET_KEY"
* the region should match our URL above..
loAuthAws.Region = "us-west-2"
loAuthAws.ServiceName = "secretsmanager"

loRest.SetAuthAws(loAuthAws)

loRest.AddHeader("Content-Type","application/x-amz-json-1.1")
loRest.AddHeader("X-Amz-Target","secretsmanager.ListSecrets")

lcStrResponse = loRest.FullRequestString("POST","/","{}")
IF (loRest.LastMethodSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loAuthAws
    CANCEL
ENDIF

lnRespStatusCode = loRest.ResponseStatusCode
? "response status code = " + STR(lnRespStatusCode)

loJResp = CreateObject('Chilkat.JsonObject')
loJResp.EmitCompact = 0
loJResp.Load(lcStrResponse)

IF (lnRespStatusCode >= 400) THEN
    ? "Response Status Code = " + STR(lnRespStatusCode)
    ? "Response Header:"
    ? loRest.ResponseHeader
    ? "Response Body:"
    ? loJResp.Emit()
    RELEASE loRest
    RELEASE loAuthAws
    RELEASE loJResp
    CANCEL
ENDIF

? "Response Body:"
? loJResp.Emit()

* Sample response body:

* {
*   "SecretList":[
*     {
*       "ARN":"arn:aws:secretsmanager:us-west-2:123456789012:secret:MyTestDatabaseSecret-a1b2c3",
*       "Description":"My test database secret",
*       "LastChangedDate":1.523477145729E9,
*       "Name":"MyTestDatabaseSecret",
*       "SecretVersionsToStages":{
*         "EXAMPLE2-90ab-cdef-fedc-ba987EXAMPLE":["AWSCURRENT"]
*       }
*     },
*     {
*       "ARN":"arn:aws:secretsmanager:us-west-2:123456789012:secret:AnotherDatabaseSecret-d4e5f6",
*       "Description":"Another secret created for a different database",
*       "LastChangedDate":1.523482025685E9,
*       "Name":"AnotherDatabaseSecret",
*       "SecretVersionsToStages":{
*         "EXAMPLE3-90ab-cdef-fedc-ba987EXAMPLE":["AWSCURRENT"]
*       }
*     }
*   ]
* }

loJson2 = CreateObject('Chilkat.JsonObject')
loJarr = CreateObject('Chilkat.JsonArray')

i = 0
lnCount_i = loJResp.SizeOfArray("SecretList")
DO WHILE i < lnCount_i
    loJResp.I = i
    lcARN = loJResp.StringOf("SecretList[i].ARN")
    lcDescription = loJResp.StringOf("SecretList[i].Description")
    lcLastChangedDate = loJResp.StringOf("SecretList[i].LastChangedDate")
    lcName = loJResp.StringOf("SecretList[i].Name")

    loJResp.ObjectOf2("SecretList[i].SecretVersionsToStages",loJson2)
    lnCount = loJson2.Size
    j = 0
    DO WHILE j < lnCount
        lcVersionName = loJson2.NameAt(j)
        loJson2.ArrayOf2(lcVersionName,loJarr)
        lcStage = loJarr.StringAt(0)
        ? "versionName = " + lcVersionName
        ? "stage = " + lcStage
        j = j + 1
    ENDDO

    i = i + 1
ENDDO

RELEASE loRest
RELEASE loAuthAws
RELEASE loJResp
RELEASE loJson2
RELEASE loJarr