PureBasic / MongoDB Atlas / Create a Custom Role
Back to Collection Items
IncludeFile "CkJsonObject.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkHttpResponse.pb"
Procedure ChilkatExample()
; This example assumes the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.
http.i = CkHttp::ckCreate()
If http.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success.i
CkHttp::setCkDigestAuth(http, 1)
CkHttp::setCkLogin(http, "username")
CkHttp::setCkPassword(http, "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.
; {
; "actions": [
; {
; "action": "CONN_POOL_STATS",
; "resources": [
; {
; "cluster": true
; }
; ]
; },
; {
; "action": "COLL_STATS",
; "resources": [
; {
; "collection": "",
; "db": "staging"
; }
; ]
; }
; ],
; "inheritedRoles": [
; {
; "db": "admin",
; "role": "enableSharding"
; },
; {
; "db": "admin",
; "role": "backup"
; }
; ],
; "roleName": "ShardingAdmin"
; }
json.i = CkJsonObject::ckCreate()
If json.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkJsonObject::ckUpdateString(json,"actions[0].action","CONN_POOL_STATS")
CkJsonObject::ckUpdateBool(json,"actions[0].resources[0].cluster",1)
CkJsonObject::ckUpdateString(json,"actions[1].action","COLL_STATS")
CkJsonObject::ckUpdateString(json,"actions[1].resources[0].collection","")
CkJsonObject::ckUpdateString(json,"actions[1].resources[0].db","staging")
CkJsonObject::ckUpdateString(json,"inheritedRoles[0].db","admin")
CkJsonObject::ckUpdateString(json,"inheritedRoles[0].role","enableSharding")
CkJsonObject::ckUpdateString(json,"inheritedRoles[1].db","admin")
CkJsonObject::ckUpdateString(json,"inheritedRoles[1].role","backup")
CkJsonObject::ckUpdateString(json,"roleName","ShardingAdmin")
resp.i = CkHttp::ckPostJson3(http,"https://domain.com/api/atlas/{{version}}/groups/{{ProjectID}}/customDBRoles/roles","application/json",json)
If CkHttp::ckLastMethodSuccess(http) = 0
Debug CkHttp::ckLastErrorText(http)
CkHttp::ckDispose(http)
CkJsonObject::ckDispose(json)
ProcedureReturn
EndIf
Debug Str(CkHttpResponse::ckStatusCode(resp))
Debug CkHttpResponse::ckBodyStr(resp)
CkHttpResponse::ckDispose(resp)
CkHttp::ckDispose(http)
CkJsonObject::ckDispose(json)
ProcedureReturn
EndProcedure
Curl Command
curl -X POST
--digest -u 'username:password'
-d '{
"actions" : [ {
"action" : "CONN_POOL_STATS",
"resources" : [ {
"cluster" : true
} ]
}, {
"action" : "COLL_STATS",
"resources" : [ {
"collection" : "",
"db" : "staging"
} ]
} ],
"inheritedRoles" : [ {
"db" : "admin",
"role" : "enableSharding"
}, {
"db" : "admin",
"role" : "backup"
} ],
"roleName" : "ShardingAdmin"
}'
https://domain.com/api/atlas/{{version}}/groups/{{ProjectID}}/customDBRoles/roles
Postman Collection Item JSON
{
"name": "Create a Custom Role",
"request": {
"method": "POST",
"header": [
],
"body": {
"mode": "raw",
"raw": " {\n \"actions\" : [ {\n \"action\" : \"CONN_POOL_STATS\",\n \"resources\" : [ {\n \"cluster\" : true\n } ]\n }, {\n \"action\" : \"COLL_STATS\",\n \"resources\" : [ {\n \"collection\" : \"\",\n \"db\" : \"staging\"\n } ]\n } ],\n \"inheritedRoles\" : [ {\n \"db\" : \"admin\",\n \"role\" : \"enableSharding\"\n }, {\n \"db\" : \"admin\",\n \"role\" : \"backup\"\n } ],\n \"roleName\" : \"ShardingAdmin\"\n}",
"options": {
"raw": {
"language": "json"
}
}
},
"url": {
"raw": "{{base_url}}/api/atlas/{{version}}/groups/{{ProjectID}}/customDBRoles/roles",
"host": [
"{{base_url}}"
],
"path": [
"api",
"atlas",
"{{version}}",
"groups",
"{{ProjectID}}",
"customDBRoles",
"roles"
]
},
"description": "Create a new custom role in the project."
},
"response": [
]
}