PureBasic / MongoDB Atlas / Create One Cluster
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.
; {
; "name": "SingleRegionCluster",
; "diskSizeGB": 100,
; "numShards": 1,
; "providerSettings": {
; "providerName": "AWS",
; "instanceSizeName": "M10",
; "regionName": "US_EAST_1"
; },
; "clusterType": "REPLICASET",
; "replicationFactor": 3,
; "replicationSpecs": [
; {
; "numShards": 1,
; "regionsConfig": {
; "US_EAST_1": {
; "analyticsNodes": 0,
; "electableNodes": 3,
; "priority": 7,
; "readOnlyNodes": 0
; }
; },
; "zoneName": "Zone 1"
; }
; ],
; "backupEnabled": false,
; "providerBackupEnabled": true,
; "autoScaling": {
; "diskGBEnabled": true
; }
; }
json.i = CkJsonObject::ckCreate()
If json.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkJsonObject::ckUpdateString(json,"name","SingleRegionCluster")
CkJsonObject::ckUpdateInt(json,"diskSizeGB",100)
CkJsonObject::ckUpdateInt(json,"numShards",1)
CkJsonObject::ckUpdateString(json,"providerSettings.providerName","AWS")
CkJsonObject::ckUpdateString(json,"providerSettings.instanceSizeName","M10")
CkJsonObject::ckUpdateString(json,"providerSettings.regionName","US_EAST_1")
CkJsonObject::ckUpdateString(json,"clusterType","REPLICASET")
CkJsonObject::ckUpdateInt(json,"replicationFactor",3)
CkJsonObject::ckUpdateInt(json,"replicationSpecs[0].numShards",1)
CkJsonObject::ckUpdateInt(json,"replicationSpecs[0].regionsConfig.US_EAST_1.analyticsNodes",0)
CkJsonObject::ckUpdateInt(json,"replicationSpecs[0].regionsConfig.US_EAST_1.electableNodes",3)
CkJsonObject::ckUpdateInt(json,"replicationSpecs[0].regionsConfig.US_EAST_1.priority",7)
CkJsonObject::ckUpdateInt(json,"replicationSpecs[0].regionsConfig.US_EAST_1.readOnlyNodes",0)
CkJsonObject::ckUpdateString(json,"replicationSpecs[0].zoneName","Zone 1")
CkJsonObject::ckUpdateBool(json,"backupEnabled",0)
CkJsonObject::ckUpdateBool(json,"providerBackupEnabled",1)
CkJsonObject::ckUpdateBool(json,"autoScaling.diskGBEnabled",1)
CkHttp::ckSetRequestHeader(http,"Content-Type","application/json")
resp.i = CkHttp::ckPostJson3(http,"https://domain.com/api/atlas/{{version}}/groups/{{ProjectID}}/clusters","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'
-H "Content-Type: application/json"
-d '{
"name": "SingleRegionCluster",
"diskSizeGB": 100,
"numShards": 1,
"providerSettings": {
"providerName": "AWS",
"instanceSizeName": "M10",
"regionName": "US_EAST_1"
},
"clusterType" : "REPLICASET",
"replicationFactor": 3,
"replicationSpecs": [{
"numShards": 1,
"regionsConfig": {
"US_EAST_1": {
"analyticsNodes": 0,
"electableNodes": 3,
"priority": 7,
"readOnlyNodes": 0
}
},
"zoneName": "Zone 1"
}],
"backupEnabled": false,
"providerBackupEnabled" : true,
"autoScaling": {
"diskGBEnabled": true
}
}'
https://domain.com/api/atlas/{{version}}/groups/{{ProjectID}}/clusters
Postman Collection Item JSON
{
"name": "Create One Cluster",
"request": {
"method": "POST",
"header": [
{
"key": "Content-Type",
"type": "text",
"value": "application/json"
}
],
"body": {
"mode": "raw",
"raw": " {\n \"name\": \"SingleRegionCluster\",\n \"diskSizeGB\": 100,\n \"numShards\": 1,\n \"providerSettings\": {\n \"providerName\": \"AWS\",\n \"instanceSizeName\": \"M10\",\n \"regionName\": \"US_EAST_1\"\n },\n \"clusterType\" : \"REPLICASET\",\n \"replicationFactor\": 3,\n \"replicationSpecs\": [{\n \"numShards\": 1,\n \"regionsConfig\": {\n \"US_EAST_1\": {\n \"analyticsNodes\": 0,\n \"electableNodes\": 3,\n \"priority\": 7,\n \"readOnlyNodes\": 0\n }\n },\n \"zoneName\": \"Zone 1\"\n }],\n \"backupEnabled\": false,\n \"providerBackupEnabled\" : true,\n \"autoScaling\": {\n \"diskGBEnabled\": true\n }\n }"
},
"url": {
"raw": "{{base_url}}/api/atlas/{{version}}/groups/{{ProjectID}}/clusters",
"host": [
"{{base_url}}"
],
"path": [
"api",
"atlas",
"{{version}}",
"groups",
"{{ProjectID}}",
"clusters"
]
},
"description": "Create a cluster in the specified project.\n\nhttps://docs.atlas.mongodb.com/reference/api/clusters-create-one/"
},
"response": [
]
}