Chilkat Online Tools

SQL Server / MongoDB Atlas / Add Entries to Project IP Access List

Back to Collection Items

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    -- This example assumes the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    DECLARE @http int
    -- Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Http', @http OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @success int

    EXEC sp_OASetProperty @http, 'DigestAuth', 1
    EXEC sp_OASetProperty @http, 'Login', 'username'
    EXEC sp_OASetProperty @http, 'Password', 'password'

    -- Use this online tool to generate code from sample JSON: Generate Code to Create JSON

    -- The following JSON is sent in the request body.

    -- [
    --   {
    --     "ipAddress": "192.0.2.15",
    --     "comment": "IP address for Application Server A"
    --   },
    --   {
    --     "cidrBlock": "203.0.113.0/24",
    --     "comment": "CIDR block for Application Server B - D"
    --   }
    -- ]

    DECLARE @jarr int
    -- Use "Chilkat_9_5_0.JsonArray" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.JsonArray', @jarr OUT

    EXEC sp_OAMethod @jarr, 'AddObjectAt', @success OUT, -1
    DECLARE @jsonObj_1 int
    EXEC sp_OAGetProperty @jarr, 'Size', @iTmp0 OUT
    EXEC sp_OAMethod @jarr, 'ObjectAt', @jsonObj_1 OUT, @iTmp0 - 1
    EXEC sp_OAMethod @jsonObj_1, 'UpdateString', @success OUT, 'ipAddress', '192.0.2.15'
    EXEC sp_OAMethod @jsonObj_1, 'UpdateString', @success OUT, 'comment', 'IP address for Application Server A'
    EXEC @hr = sp_OADestroy @jsonObj_1

    EXEC sp_OAMethod @jarr, 'AddObjectAt', @success OUT, -1
    EXEC sp_OAGetProperty @jarr, 'Size', @iTmp0 OUT
    EXEC sp_OAMethod @jarr, 'ObjectAt', @jsonObj_1 OUT, @iTmp0 - 1
    EXEC sp_OAMethod @jsonObj_1, 'UpdateString', @success OUT, 'cidrBlock', '203.0.113.0/24'
    EXEC sp_OAMethod @jsonObj_1, 'UpdateString', @success OUT, 'comment', 'CIDR block for Application Server B - D'
    EXEC @hr = sp_OADestroy @jsonObj_1

    DECLARE @sbRequestBody int
    -- Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sbRequestBody OUT

    EXEC sp_OAMethod @jarr, 'EmitSb', @success OUT, @sbRequestBody

    DECLARE @resp int
    EXEC sp_OAMethod @http, 'PTextSb', @resp OUT, 'POST', 'https://domain.com/api/atlas/{{version}}/groups/{{ProjectID}}/accessList/', @sbRequestBody, 'utf-8', 'application/json', 0, 0
    EXEC sp_OAGetProperty @http, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 = 0
      BEGIN
        EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @http
        EXEC @hr = sp_OADestroy @jarr
        EXEC @hr = sp_OADestroy @sbRequestBody
        RETURN
      END

    EXEC sp_OAGetProperty @resp, 'StatusCode', @iTmp0 OUT
    PRINT @iTmp0
    EXEC sp_OAGetProperty @resp, 'BodyStr', @sTmp0 OUT
    PRINT @sTmp0
    EXEC @hr = sp_OADestroy @resp


    EXEC @hr = sp_OADestroy @http
    EXEC @hr = sp_OADestroy @jarr
    EXEC @hr = sp_OADestroy @sbRequestBody


END
GO

Curl Command

curl -X POST
	--digest -u 'username:password'
	-d '[
         {
           "ipAddress" : "192.0.2.15",
           "comment" : "IP address for Application Server A"
         },
         {
           "cidrBlock" : "203.0.113.0/24",
           "comment" : "CIDR block for Application Server B - D"
         }
       ]'
https://domain.com/api/atlas/{{version}}/groups/{{ProjectID}}/accessList/

Postman Collection Item JSON

{
  "name": "Add Entries to Project IP Access List",
  "request": {
    "method": "POST",
    "header": [
    ],
    "body": {
      "mode": "raw",
      "raw": "       [\n         {\n           \"ipAddress\" : \"192.0.2.15\",\n           \"comment\" : \"IP address for Application Server A\"\n         },\n         {\n           \"cidrBlock\" : \"203.0.113.0/24\",\n           \"comment\" : \"CIDR block for Application Server B - D\"\n         }\n       ]",
      "options": {
        "raw": {
          "language": "json"
        }
      }
    },
    "url": {
      "raw": "{{base_url}}/api/atlas/{{version}}/groups/{{ProjectID}}/accessList/",
      "host": [
        "{{base_url}}"
      ],
      "path": [
        "api",
        "atlas",
        "{{version}}",
        "groups",
        "{{ProjectID}}",
        "accessList",
        ""
      ]
    },
    "description": "https://docs.atlas.mongodb.com/reference/api/ip-access-list/add-entries-to-access-list/\n\nCreate the access list entry"
  },
  "response": [
  ]
}