Tcl
Tcl
Amazon Cognito - Create User Pool
See more Amazon Cognito Examples
Creates a new Amazon Cognito user pool and sets the password policy for the pool.Chilkat Tcl Downloads
load ./chilkat.dll
set success 0
# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
set rest [new_CkRest]
set authAws [new_CkAuthAws]
CkAuthAws_put_AccessKey $authAws "AWS_ACCESS_KEY"
CkAuthAws_put_SecretKey $authAws "AWS_SECRET_KEY"
# Don't forget to change the region to your particular region. (Also make the same change in the call to Connect below.)
CkAuthAws_put_Region $authAws "us-west-2"
CkAuthAws_put_ServiceName $authAws "cognito-idp"
# SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
CkRest_SetAuthAws $rest $authAws
# URL: https://cognito-idp.us-west-2.amazonaws.com/
set bTls 1
set port 443
set bAutoReconnect 1
# Use the same region as specified above.
set success [CkRest_Connect $rest "cognito-idp.us-west-2.amazonaws.com" $port $bTls $bAutoReconnect]
if {$success != 1} then {
puts "ConnectFailReason: [CkRest_get_ConnectFailReason $rest]"
puts [CkRest_lastErrorText $rest]
delete_CkRest $rest
delete_CkAuthAws $authAws
exit
}
# Note: The above code does not need to be repeatedly called for each REST request.
# The rest object can be setup once, and then many requests can be sent. Chilkat will automatically
# reconnect within a FullRequest* method as needed. It is only the very first connection that is explicitly
# made via the Connect method.
# Use this online tool to generate code from sample JSON:
# Generate Code to Create JSON
# The following JSON is sent in the request body.
# This example wil demonstrate creating a pool with many options specified.
# The only required JSON member is "PoolName".
# {
# "AccountRecoverySetting": {
# "RecoveryMechanisms": [
# {
# "Name": "verified_phone_number",
# "Priority": 1
# },
# {
# "Name": "verified_email",
# "Priority": 2
# }
# ]
# },
# "AdminCreateUserConfig": {
# "AllowAdminCreateUserOnly": false,
# "InviteMessageTemplate": {
# "EmailMessage": "Your username is {username} and temporary password is {####}. ",
# "EmailSubject": "Your temporary password",
# "SMSMessage": "Your username is {username} and temporary password is {####}. "
# },
# "TemporaryPasswordValidityDays": 7
# },
# "AutoVerifiedAttributes": [
# "email",
# "phone_number"
# ],
# "EmailConfiguration": {
# "EmailSendingAccount": "DEVELOPER",
# "From": "joe@example.com",
# "ReplyToEmailAddress": "joe@example.com",
# "SourceArn": "arn:aws:ses:us-west-2:954491834127:identity/joe@example.com"
# },
# "EmailVerificationMessage": "Your verification code is {####}. ",
# "EmailVerificationSubject": "Your verification code",
# "LambdaConfig": {},
# "MfaConfiguration": "OFF",
# "PoolName": "MyTestPool",
# "Policies": {
# "PasswordPolicy": {
# "MinimumLength": 8,
# "RequireLowercase": true,
# "RequireNumbers": true,
# "RequireSymbols": true,
# "RequireUppercase": true,
# "TemporaryPasswordValidityDays": 7
# }
# },
# "Schema": [
# {
# "AttributeDataType": "String",
# "DeveloperOnlyAttribute": false,
# "Mutable": false,
# "Name": "sub",
# "Required": true,
# "StringAttributeConstraints": {
# "MaxLength": "2048",
# "MinLength": "1"
# }
# },
# {
# "AttributeDataType": "String",
# "DeveloperOnlyAttribute": false,
# "Mutable": true,
# "Name": "name",
# "Required": false,
# "StringAttributeConstraints": {
# "MaxLength": "2048",
# "MinLength": "0"
# }
# },
# {
# "AttributeDataType": "String",
# "DeveloperOnlyAttribute": false,
# "Mutable": true,
# "Name": "given_name",
# "Required": false,
# "StringAttributeConstraints": {
# "MaxLength": "2048",
# "MinLength": "0"
# }
# },
# {
# "AttributeDataType": "String",
# "DeveloperOnlyAttribute": false,
# "Mutable": true,
# "Name": "family_name",
# "Required": false,
# "StringAttributeConstraints": {
# "MaxLength": "2048",
# "MinLength": "0"
# }
# },
# {
# "AttributeDataType": "String",
# "DeveloperOnlyAttribute": false,
# "Mutable": true,
# "Name": "middle_name",
# "Required": false,
# "StringAttributeConstraints": {
# "MaxLength": "2048",
# "MinLength": "0"
# }
# },
# {
# "AttributeDataType": "String",
# "DeveloperOnlyAttribute": false,
# "Mutable": true,
# "Name": "nickname",
# "Required": false,
# "StringAttributeConstraints": {
# "MaxLength": "2048",
# "MinLength": "0"
# }
# },
# {
# "AttributeDataType": "String",
# "DeveloperOnlyAttribute": false,
# "Mutable": true,
# "Name": "preferred_username",
# "Required": false,
# "StringAttributeConstraints": {
# "MaxLength": "2048",
# "MinLength": "0"
# }
# },
# {
# "AttributeDataType": "String",
# "DeveloperOnlyAttribute": false,
# "Mutable": true,
# "Name": "profile",
# "Required": false,
# "StringAttributeConstraints": {
# "MaxLength": "2048",
# "MinLength": "0"
# }
# },
# {
# "AttributeDataType": "String",
# "DeveloperOnlyAttribute": false,
# "Mutable": true,
# "Name": "picture",
# "Required": false,
# "StringAttributeConstraints": {
# "MaxLength": "2048",
# "MinLength": "0"
# }
# },
# {
# "AttributeDataType": "String",
# "DeveloperOnlyAttribute": false,
# "Mutable": true,
# "Name": "website",
# "Required": false,
# "StringAttributeConstraints": {
# "MaxLength": "2048",
# "MinLength": "0"
# }
# },
# {
# "AttributeDataType": "String",
# "DeveloperOnlyAttribute": false,
# "Mutable": true,
# "Name": "email",
# "Required": true,
# "StringAttributeConstraints": {
# "MaxLength": "2048",
# "MinLength": "0"
# }
# },
# {
# "AttributeDataType": "Boolean",
# "DeveloperOnlyAttribute": false,
# "Mutable": true,
# "Name": "email_verified",
# "Required": false
# },
# {
# "AttributeDataType": "String",
# "DeveloperOnlyAttribute": false,
# "Mutable": true,
# "Name": "gender",
# "Required": false,
# "StringAttributeConstraints": {
# "MaxLength": "2048",
# "MinLength": "0"
# }
# },
# {
# "AttributeDataType": "String",
# "DeveloperOnlyAttribute": false,
# "Mutable": true,
# "Name": "birthdate",
# "Required": false,
# "StringAttributeConstraints": {
# "MaxLength": "10",
# "MinLength": "10"
# }
# },
# {
# "AttributeDataType": "String",
# "DeveloperOnlyAttribute": false,
# "Mutable": true,
# "Name": "zoneinfo",
# "Required": false,
# "StringAttributeConstraints": {
# "MaxLength": "2048",
# "MinLength": "0"
# }
# },
# {
# "AttributeDataType": "String",
# "DeveloperOnlyAttribute": false,
# "Mutable": true,
# "Name": "locale",
# "Required": false,
# "StringAttributeConstraints": {
# "MaxLength": "2048",
# "MinLength": "0"
# }
# },
# {
# "AttributeDataType": "String",
# "DeveloperOnlyAttribute": false,
# "Mutable": true,
# "Name": "phone_number",
# "Required": false,
# "StringAttributeConstraints": {
# "MaxLength": "2048",
# "MinLength": "0"
# }
# },
# {
# "AttributeDataType": "String",
# "DeveloperOnlyAttribute": false,
# "Mutable": true,
# "Name": "address",
# "Required": false,
# "StringAttributeConstraints": {
# "MaxLength": "2048",
# "MinLength": "0"
# }
# },
# {
# "AttributeDataType": "Number",
# "DeveloperOnlyAttribute": false,
# "Mutable": true,
# "Name": "updated_at",
# "NumberAttributeConstraints": {
# "MinValue": "0"
# },
# "Required": false
# }
# ],
# "SmsAuthenticationMessage": "Your verification code is {####}. ",
# "SmsConfiguration": {
# "ExternalId": "94b17737-216b-4cf7-a29e-17e990e91300",
# "SnsCallerArn": "arn:aws:iam::954491834127:role/service-role/chilkat-SMS-Role"
# },
# "SmsVerificationMessage": "Your verification code is {####}. ",
# "UsernameConfiguration": {
# "CaseSensitive": false
# },
# "VerificationMessageTemplate": {
# "DefaultEmailOption": "CONFIRM_WITH_CODE",
# "EmailMessage": "Your verification code is {####}. ",
# "EmailSubject": "Your verification code",
# "SmsMessage": "Your verification code is {####}. "
# }
# }
#
set json [new_CkJsonObject]
CkJsonObject_UpdateString $json "AccountRecoverySetting.RecoveryMechanisms[0].Name" "verified_phone_number"
CkJsonObject_UpdateInt $json "AccountRecoverySetting.RecoveryMechanisms[0].Priority" 1
CkJsonObject_UpdateString $json "AccountRecoverySetting.RecoveryMechanisms[1].Name" "verified_email"
CkJsonObject_UpdateInt $json "AccountRecoverySetting.RecoveryMechanisms[1].Priority" 2
CkJsonObject_UpdateBool $json "AdminCreateUserConfig.AllowAdminCreateUserOnly" 0
CkJsonObject_UpdateString $json "AdminCreateUserConfig.InviteMessageTemplate.EmailMessage" "Your username is {username} and temporary password is {####}. "
CkJsonObject_UpdateString $json "AdminCreateUserConfig.InviteMessageTemplate.EmailSubject" "Your temporary password"
CkJsonObject_UpdateString $json "AdminCreateUserConfig.InviteMessageTemplate.SMSMessage" "Your username is {username} and temporary password is {####}. "
CkJsonObject_UpdateInt $json "AdminCreateUserConfig.TemporaryPasswordValidityDays" 7
CkJsonObject_UpdateString $json "AutoVerifiedAttributes[0]" "email"
CkJsonObject_UpdateString $json "AutoVerifiedAttributes[1]" "phone_number"
CkJsonObject_UpdateString $json "EmailConfiguration.EmailSendingAccount" "DEVELOPER"
CkJsonObject_UpdateString $json "EmailConfiguration.From" "joe@example.com"
CkJsonObject_UpdateString $json "EmailConfiguration.ReplyToEmailAddress" "joe@example.com"
CkJsonObject_UpdateString $json "EmailConfiguration.SourceArn" "arn:aws:ses:us-west-2:954491834127:identity/joe@example.com"
CkJsonObject_UpdateString $json "EmailVerificationMessage" "Your verification code is {####}. "
CkJsonObject_UpdateString $json "EmailVerificationSubject" "Your verification code"
CkJsonObject_UpdateNewObject $json "LambdaConfig"
CkJsonObject_UpdateString $json "MfaConfiguration" "OFF"
CkJsonObject_UpdateString $json "PoolName" "MyTestPool"
CkJsonObject_UpdateInt $json "Policies.PasswordPolicy.MinimumLength" 8
CkJsonObject_UpdateBool $json "Policies.PasswordPolicy.RequireLowercase" 1
CkJsonObject_UpdateBool $json "Policies.PasswordPolicy.RequireNumbers" 1
CkJsonObject_UpdateBool $json "Policies.PasswordPolicy.RequireSymbols" 1
CkJsonObject_UpdateBool $json "Policies.PasswordPolicy.RequireUppercase" 1
CkJsonObject_UpdateInt $json "Policies.PasswordPolicy.TemporaryPasswordValidityDays" 7
CkJsonObject_UpdateString $json "Schema[0].AttributeDataType" "String"
CkJsonObject_UpdateBool $json "Schema[0].DeveloperOnlyAttribute" 0
CkJsonObject_UpdateBool $json "Schema[0].Mutable" 0
CkJsonObject_UpdateString $json "Schema[0].Name" "sub"
CkJsonObject_UpdateBool $json "Schema[0].Required" 1
CkJsonObject_UpdateString $json "Schema[0].StringAttributeConstraints.MaxLength" "2048"
CkJsonObject_UpdateString $json "Schema[0].StringAttributeConstraints.MinLength" "1"
CkJsonObject_UpdateString $json "Schema[1].AttributeDataType" "String"
CkJsonObject_UpdateBool $json "Schema[1].DeveloperOnlyAttribute" 0
CkJsonObject_UpdateBool $json "Schema[1].Mutable" 1
CkJsonObject_UpdateString $json "Schema[1].Name" "name"
CkJsonObject_UpdateBool $json "Schema[1].Required" 0
CkJsonObject_UpdateString $json "Schema[1].StringAttributeConstraints.MaxLength" "2048"
CkJsonObject_UpdateString $json "Schema[1].StringAttributeConstraints.MinLength" "0"
CkJsonObject_UpdateString $json "Schema[2].AttributeDataType" "String"
CkJsonObject_UpdateBool $json "Schema[2].DeveloperOnlyAttribute" 0
CkJsonObject_UpdateBool $json "Schema[2].Mutable" 1
CkJsonObject_UpdateString $json "Schema[2].Name" "given_name"
CkJsonObject_UpdateBool $json "Schema[2].Required" 0
CkJsonObject_UpdateString $json "Schema[2].StringAttributeConstraints.MaxLength" "2048"
CkJsonObject_UpdateString $json "Schema[2].StringAttributeConstraints.MinLength" "0"
CkJsonObject_UpdateString $json "Schema[3].AttributeDataType" "String"
CkJsonObject_UpdateBool $json "Schema[3].DeveloperOnlyAttribute" 0
CkJsonObject_UpdateBool $json "Schema[3].Mutable" 1
CkJsonObject_UpdateString $json "Schema[3].Name" "family_name"
CkJsonObject_UpdateBool $json "Schema[3].Required" 0
CkJsonObject_UpdateString $json "Schema[3].StringAttributeConstraints.MaxLength" "2048"
CkJsonObject_UpdateString $json "Schema[3].StringAttributeConstraints.MinLength" "0"
CkJsonObject_UpdateString $json "Schema[4].AttributeDataType" "String"
CkJsonObject_UpdateBool $json "Schema[4].DeveloperOnlyAttribute" 0
CkJsonObject_UpdateBool $json "Schema[4].Mutable" 1
CkJsonObject_UpdateString $json "Schema[4].Name" "middle_name"
CkJsonObject_UpdateBool $json "Schema[4].Required" 0
CkJsonObject_UpdateString $json "Schema[4].StringAttributeConstraints.MaxLength" "2048"
CkJsonObject_UpdateString $json "Schema[4].StringAttributeConstraints.MinLength" "0"
CkJsonObject_UpdateString $json "Schema[5].AttributeDataType" "String"
CkJsonObject_UpdateBool $json "Schema[5].DeveloperOnlyAttribute" 0
CkJsonObject_UpdateBool $json "Schema[5].Mutable" 1
CkJsonObject_UpdateString $json "Schema[5].Name" "nickname"
CkJsonObject_UpdateBool $json "Schema[5].Required" 0
CkJsonObject_UpdateString $json "Schema[5].StringAttributeConstraints.MaxLength" "2048"
CkJsonObject_UpdateString $json "Schema[5].StringAttributeConstraints.MinLength" "0"
CkJsonObject_UpdateString $json "Schema[6].AttributeDataType" "String"
CkJsonObject_UpdateBool $json "Schema[6].DeveloperOnlyAttribute" 0
CkJsonObject_UpdateBool $json "Schema[6].Mutable" 1
CkJsonObject_UpdateString $json "Schema[6].Name" "preferred_username"
CkJsonObject_UpdateBool $json "Schema[6].Required" 0
CkJsonObject_UpdateString $json "Schema[6].StringAttributeConstraints.MaxLength" "2048"
CkJsonObject_UpdateString $json "Schema[6].StringAttributeConstraints.MinLength" "0"
CkJsonObject_UpdateString $json "Schema[7].AttributeDataType" "String"
CkJsonObject_UpdateBool $json "Schema[7].DeveloperOnlyAttribute" 0
CkJsonObject_UpdateBool $json "Schema[7].Mutable" 1
CkJsonObject_UpdateString $json "Schema[7].Name" "profile"
CkJsonObject_UpdateBool $json "Schema[7].Required" 0
CkJsonObject_UpdateString $json "Schema[7].StringAttributeConstraints.MaxLength" "2048"
CkJsonObject_UpdateString $json "Schema[7].StringAttributeConstraints.MinLength" "0"
CkJsonObject_UpdateString $json "Schema[8].AttributeDataType" "String"
CkJsonObject_UpdateBool $json "Schema[8].DeveloperOnlyAttribute" 0
CkJsonObject_UpdateBool $json "Schema[8].Mutable" 1
CkJsonObject_UpdateString $json "Schema[8].Name" "picture"
CkJsonObject_UpdateBool $json "Schema[8].Required" 0
CkJsonObject_UpdateString $json "Schema[8].StringAttributeConstraints.MaxLength" "2048"
CkJsonObject_UpdateString $json "Schema[8].StringAttributeConstraints.MinLength" "0"
CkJsonObject_UpdateString $json "Schema[9].AttributeDataType" "String"
CkJsonObject_UpdateBool $json "Schema[9].DeveloperOnlyAttribute" 0
CkJsonObject_UpdateBool $json "Schema[9].Mutable" 1
CkJsonObject_UpdateString $json "Schema[9].Name" "website"
CkJsonObject_UpdateBool $json "Schema[9].Required" 0
CkJsonObject_UpdateString $json "Schema[9].StringAttributeConstraints.MaxLength" "2048"
CkJsonObject_UpdateString $json "Schema[9].StringAttributeConstraints.MinLength" "0"
CkJsonObject_UpdateString $json "Schema[10].AttributeDataType" "String"
CkJsonObject_UpdateBool $json "Schema[10].DeveloperOnlyAttribute" 0
CkJsonObject_UpdateBool $json "Schema[10].Mutable" 1
CkJsonObject_UpdateString $json "Schema[10].Name" "email"
CkJsonObject_UpdateBool $json "Schema[10].Required" 1
CkJsonObject_UpdateString $json "Schema[10].StringAttributeConstraints.MaxLength" "2048"
CkJsonObject_UpdateString $json "Schema[10].StringAttributeConstraints.MinLength" "0"
CkJsonObject_UpdateString $json "Schema[11].AttributeDataType" "Boolean"
CkJsonObject_UpdateBool $json "Schema[11].DeveloperOnlyAttribute" 0
CkJsonObject_UpdateBool $json "Schema[11].Mutable" 1
CkJsonObject_UpdateString $json "Schema[11].Name" "email_verified"
CkJsonObject_UpdateBool $json "Schema[11].Required" 0
CkJsonObject_UpdateString $json "Schema[12].AttributeDataType" "String"
CkJsonObject_UpdateBool $json "Schema[12].DeveloperOnlyAttribute" 0
CkJsonObject_UpdateBool $json "Schema[12].Mutable" 1
CkJsonObject_UpdateString $json "Schema[12].Name" "gender"
CkJsonObject_UpdateBool $json "Schema[12].Required" 0
CkJsonObject_UpdateString $json "Schema[12].StringAttributeConstraints.MaxLength" "2048"
CkJsonObject_UpdateString $json "Schema[12].StringAttributeConstraints.MinLength" "0"
CkJsonObject_UpdateString $json "Schema[13].AttributeDataType" "String"
CkJsonObject_UpdateBool $json "Schema[13].DeveloperOnlyAttribute" 0
CkJsonObject_UpdateBool $json "Schema[13].Mutable" 1
CkJsonObject_UpdateString $json "Schema[13].Name" "birthdate"
CkJsonObject_UpdateBool $json "Schema[13].Required" 0
CkJsonObject_UpdateString $json "Schema[13].StringAttributeConstraints.MaxLength" "10"
CkJsonObject_UpdateString $json "Schema[13].StringAttributeConstraints.MinLength" "10"
CkJsonObject_UpdateString $json "Schema[14].AttributeDataType" "String"
CkJsonObject_UpdateBool $json "Schema[14].DeveloperOnlyAttribute" 0
CkJsonObject_UpdateBool $json "Schema[14].Mutable" 1
CkJsonObject_UpdateString $json "Schema[14].Name" "zoneinfo"
CkJsonObject_UpdateBool $json "Schema[14].Required" 0
CkJsonObject_UpdateString $json "Schema[14].StringAttributeConstraints.MaxLength" "2048"
CkJsonObject_UpdateString $json "Schema[14].StringAttributeConstraints.MinLength" "0"
CkJsonObject_UpdateString $json "Schema[15].AttributeDataType" "String"
CkJsonObject_UpdateBool $json "Schema[15].DeveloperOnlyAttribute" 0
CkJsonObject_UpdateBool $json "Schema[15].Mutable" 1
CkJsonObject_UpdateString $json "Schema[15].Name" "locale"
CkJsonObject_UpdateBool $json "Schema[15].Required" 0
CkJsonObject_UpdateString $json "Schema[15].StringAttributeConstraints.MaxLength" "2048"
CkJsonObject_UpdateString $json "Schema[15].StringAttributeConstraints.MinLength" "0"
CkJsonObject_UpdateString $json "Schema[16].AttributeDataType" "String"
CkJsonObject_UpdateBool $json "Schema[16].DeveloperOnlyAttribute" 0
CkJsonObject_UpdateBool $json "Schema[16].Mutable" 1
CkJsonObject_UpdateString $json "Schema[16].Name" "phone_number"
CkJsonObject_UpdateBool $json "Schema[16].Required" 0
CkJsonObject_UpdateString $json "Schema[16].StringAttributeConstraints.MaxLength" "2048"
CkJsonObject_UpdateString $json "Schema[16].StringAttributeConstraints.MinLength" "0"
CkJsonObject_UpdateString $json "Schema[17].AttributeDataType" "String"
CkJsonObject_UpdateBool $json "Schema[17].DeveloperOnlyAttribute" 0
CkJsonObject_UpdateBool $json "Schema[17].Mutable" 1
CkJsonObject_UpdateString $json "Schema[17].Name" "address"
CkJsonObject_UpdateBool $json "Schema[17].Required" 0
CkJsonObject_UpdateString $json "Schema[17].StringAttributeConstraints.MaxLength" "2048"
CkJsonObject_UpdateString $json "Schema[17].StringAttributeConstraints.MinLength" "0"
CkJsonObject_UpdateString $json "Schema[18].AttributeDataType" "Number"
CkJsonObject_UpdateBool $json "Schema[18].DeveloperOnlyAttribute" 0
CkJsonObject_UpdateBool $json "Schema[18].Mutable" 1
CkJsonObject_UpdateString $json "Schema[18].Name" "updated_at"
CkJsonObject_UpdateString $json "Schema[18].NumberAttributeConstraints.MinValue" "0"
CkJsonObject_UpdateBool $json "Schema[18].Required" 0
CkJsonObject_UpdateString $json "SmsAuthenticationMessage" "Your verification code is {####}. "
# Use your own value here:
CkJsonObject_UpdateString $json "SmsConfiguration.ExternalId" "94b17737-216b-4cf7-a29e-17e990e91300"
CkJsonObject_UpdateString $json "SmsConfiguration.SnsCallerArn" "arn:aws:iam::954491834127:role/service-role/chilkat-SMS-Role"
CkJsonObject_UpdateString $json "SmsVerificationMessage" "Your verification code is {####}. "
CkJsonObject_UpdateBool $json "UsernameConfiguration.CaseSensitive" 0
CkJsonObject_UpdateString $json "VerificationMessageTemplate.DefaultEmailOption" "CONFIRM_WITH_CODE"
CkJsonObject_UpdateString $json "VerificationMessageTemplate.EmailMessage" "Your verification code is {####}. "
CkJsonObject_UpdateString $json "VerificationMessageTemplate.EmailSubject" "Your verification code"
CkJsonObject_UpdateString $json "VerificationMessageTemplate.SmsMessage" "Your verification code is {####}. "
CkRest_AddHeader $rest "Content-Type" "application/x-amz-json-1.0"
CkRest_AddHeader $rest "X-Amz-Target" "AWSCognitoIdentityProviderService.CreateUserPool"
CkRest_AddHeader $rest "Accept-Encoding" "identity"
set sbRequestBody [new_CkStringBuilder]
CkJsonObject_EmitSb $json $sbRequestBody
set sbResponseBody [new_CkStringBuilder]
set success [CkRest_FullRequestSb $rest "POST" "/" $sbRequestBody $sbResponseBody]
if {$success != 1} then {
puts [CkRest_lastErrorText $rest]
delete_CkRest $rest
delete_CkAuthAws $authAws
delete_CkJsonObject $json
delete_CkStringBuilder $sbRequestBody
delete_CkStringBuilder $sbResponseBody
exit
}
set respStatusCode [CkRest_get_ResponseStatusCode $rest]
puts "response status code = $respStatusCode"
if {$respStatusCode != 200} then {
puts "Response Status Code = $respStatusCode"
puts "Response Header:"
puts [CkRest_responseHeader $rest]
puts "Response Body:"
puts [CkStringBuilder_getAsString $sbResponseBody]
delete_CkRest $rest
delete_CkAuthAws $authAws
delete_CkJsonObject $json
delete_CkStringBuilder $sbRequestBody
delete_CkStringBuilder $sbResponseBody
exit
}
set jsonResponse [new_CkJsonObject]
CkJsonObject_LoadSb $jsonResponse $sbResponseBody
CkJsonObject_put_EmitCompact $jsonResponse 0
puts [CkJsonObject_emit $jsonResponse]
# The response is similar to the response at Cognito Describe User Pool
delete_CkRest $rest
delete_CkAuthAws $authAws
delete_CkJsonObject $json
delete_CkStringBuilder $sbRequestBody
delete_CkStringBuilder $sbResponseBody
delete_CkJsonObject $jsonResponse