Chilkat Online Tools

VB6 / MongoDB Atlas / Update One Alert Configuration

Back to Collection Items

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

Dim http As New ChilkatHttp
Dim success As Long

http.DigestAuth = 1
http.Login = "username"
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.

' {
'   "eventTypeName": "REPLICATION_OPLOG_WINDOW_RUNNING_OUT",
'   "enabled": true,
'   "notifications": [
'     {
'       "delayMin": 0,
'       "emailEnabled": true,
'       "intervalMin": 15,
'       "roles": [
'         "GROUP_OWNER"
'       ],
'       "smsEnabled": false,
'       "typeName": "GROUP"
'     }
'   ],
'   "threshold": {
'     "operator": "LESS_THAN",
'     "threshold": 1
'   },
'   "typeName": "REPLICA_SET"
' }

Dim json As New ChilkatJsonObject
success = json.UpdateString("eventTypeName","REPLICATION_OPLOG_WINDOW_RUNNING_OUT")
success = json.UpdateBool("enabled",1)
success = json.UpdateInt("notifications[0].delayMin",0)
success = json.UpdateBool("notifications[0].emailEnabled",1)
success = json.UpdateInt("notifications[0].intervalMin",15)
success = json.UpdateString("notifications[0].roles[0]","GROUP_OWNER")
success = json.UpdateBool("notifications[0].smsEnabled",0)
success = json.UpdateString("notifications[0].typeName","GROUP")
success = json.UpdateString("threshold.operator","LESS_THAN")
success = json.UpdateInt("threshold.threshold",1)
success = json.UpdateString("typeName","REPLICA_SET")

http.SetRequestHeader "Content-Type","application/json"

Dim sbRequestBody As New ChilkatStringBuilder
success = json.EmitSb(sbRequestBody)

Dim resp As ChilkatHttpResponse
Set resp = http.PTextSb("PUT","https://domain.com/api/atlas/{{version}}/groups/{{ProjectID}}/alertConfigs/{{ALERT-CONFIG-ID}}",sbRequestBody,"utf-8","application/json",0,0)
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print resp.StatusCode
Debug.Print resp.BodyStr

Curl Command

curl -X PUT
	--digest -u 'username:password'
	-H "Content-Type: application/json"
	-d '{
    "eventTypeName": "REPLICATION_OPLOG_WINDOW_RUNNING_OUT",
    "enabled": true,
    "notifications": [
        {
            "delayMin": 0,
            "emailEnabled": true,
            "intervalMin": 15,
            "roles": [
                "GROUP_OWNER"
            ],
            "smsEnabled": false,
            "typeName": "GROUP"
        }
    ],
    "threshold": {
        "operator": "LESS_THAN",
        "threshold": 1
    },
    "typeName": "REPLICA_SET"
}'
https://domain.com/api/atlas/{{version}}/groups/{{ProjectID}}/alertConfigs/{{ALERT-CONFIG-ID}}

Postman Collection Item JSON

{
  "name": "Update One Alert Configuration",
  "request": {
    "method": "PUT",
    "header": [
      {
        "key": "Content-Type",
        "value": "application/json",
        "type": "text"
      }
    ],
    "body": {
      "mode": "raw",
      "raw": "{\n    \"eventTypeName\": \"REPLICATION_OPLOG_WINDOW_RUNNING_OUT\",\n    \"enabled\": true,\n    \"notifications\": [\n        {\n            \"delayMin\": 0,\n            \"emailEnabled\": true,\n            \"intervalMin\": 15,\n            \"roles\": [\n                \"GROUP_OWNER\"\n            ],\n            \"smsEnabled\": false,\n            \"typeName\": \"GROUP\"\n        }\n    ],\n    \"threshold\": {\n        \"operator\": \"LESS_THAN\",\n        \"threshold\": 1\n    },\n    \"typeName\": \"REPLICA_SET\"\n}"
    },
    "url": {
      "raw": "{{base_url}}/api/atlas/{{version}}/groups/{{ProjectID}}/alertConfigs/{{ALERT-CONFIG-ID}}",
      "host": [
        "{{base_url}}"
      ],
      "path": [
        "api",
        "atlas",
        "{{version}}",
        "groups",
        "{{ProjectID}}",
        "alertConfigs",
        "{{ALERT-CONFIG-ID}}"
      ]
    },
    "description": "https://docs.atlas.mongodb.com/reference/api/alert-configurations-update-config/"
  },
  "response": [
  ]
}