Pascal (Lazarus/Delphi)

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. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.JsonArray,
  Chilkat.AuthAws,
  Chilkat.Rest,
  Chilkat.JsonObject;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  rest: TRest;
  bTls: Boolean;
  port: Integer;
  bAutoReconnect: Boolean;
  authAws: TAuthAws;
  strResponse: string;
  respStatusCode: Integer;
  jResp: TJsonObject;
  ARN: string;
  Description: string;
  LastChangedDate: string;
  Name: string;
  strVal: string;
  json2: TJsonObject;
  jarr: TJsonArray;
  i: Integer;
  count_i: Integer;
  count: Integer;
  j: Integer;
  versionName: string;
  stage: string;

begin
  success := False;

  //  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>
  //  
  //  {}

  rest := TRest.Create;

  //  Connect to the Amazon AWS REST server.
  //  such as https://secretsmanager.us-west-2.amazonaws.com/
  bTls := True;
  port := 443;
  bAutoReconnect := True;
  success := rest.Connect('secretsmanager.us-west-2.amazonaws.com',port,bTls,bAutoReconnect);

  //  Provide AWS credentials for the REST call.
  authAws := TAuthAws.Create;
  authAws.AccessKey := 'AWS_ACCESS_KEY';
  authAws.SecretKey := 'AWS_SECRET_KEY';
  //  the region should match our URL above..
  authAws.Region := 'us-west-2';
  authAws.ServiceName := 'secretsmanager';

  rest.SetAuthAws(authAws);

  rest.AddHeader('Content-Type','application/x-amz-json-1.1');
  rest.AddHeader('X-Amz-Target','secretsmanager.ListSecrets');

  strResponse := rest.FullRequestString('POST','/','{}');
  if (rest.LastMethodSuccess = False) then
    begin
      WriteLn(rest.LastErrorText);
      Exit;
    end;

  respStatusCode := rest.ResponseStatusCode;
  WriteLn('response status code = ' + respStatusCode);

  jResp := TJsonObject.Create;
  jResp.EmitCompact := False;
  jResp.Load(strResponse);

  if (respStatusCode >= 400) then
    begin
      WriteLn('Response Status Code = ' + respStatusCode);
      WriteLn('Response Header:');
      WriteLn(rest.ResponseHeader);
      WriteLn('Response Body:');
      WriteLn(jResp.Emit());
      Exit;
    end;

  WriteLn('Response Body:');
  WriteLn(jResp.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"]
  //        }
  //      }
  //    ]
  //  }

  json2 := TJsonObject.Create;
  jarr := TJsonArray.Create;

  i := 0;
  count_i := jResp.SizeOfArray('SecretList');
  while i < count_i do
    begin
      jResp.I := i;
      ARN := jResp.StringOf('SecretList[i].ARN');
      Description := jResp.StringOf('SecretList[i].Description');
      LastChangedDate := jResp.StringOf('SecretList[i].LastChangedDate');
      Name := jResp.StringOf('SecretList[i].Name');

      jResp.ObjectOf2('SecretList[i].SecretVersionsToStages',json2);
      count := json2.Size;
      j := 0;
      while j < count do
        begin
          versionName := json2.NameAt(j);
          json2.ArrayOf2(versionName,jarr);
          stage := jarr.StringAt(0);
          WriteLn('versionName = ' + versionName);
          WriteLn('stage = ' + stage);
          j := j + 1;
        end;

      i := i + 1;
    end;



  rest.Free;
  authAws.Free;
  jResp.Free;
  json2.Free;
  jarr.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.