(Tcl) Microsoft Teams - Create Team (minimal request)

The following is an example of a minimal request to create a Team. By omitting other properties, the client is implicitly taking defaults from the pre-defined template represented by template.

For more information, see https://docs.microsoft.com/en-us/graph/api/team-post?view=graph-rest-1.0&tabs=http#request

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

# To create a Microsoft Team, we want to send an HTTP request like the following:

# POST https://graph.microsoft.com/v1.0/teams
# Content-Type: application/json
# 
# {
#   "template@odata.bind": "https://graph.microsoft.com/v1.0/teamsTemplates('standard')",
#   "displayName": "My Sample Team",
#   "description": "My Sample Team’s Description"
# }

set json [new_CkJsonObject]

CkJsonObject_UpdateString $json "\"template@odata.bind\"" "https://graph.microsoft.com/v1.0/teamsTemplates('standard')"
CkJsonObject_UpdateString $json "displayName" "My Sample Team"
CkJsonObject_UpdateString $json "description" "My Sample Team’s Description"

CkHttp_SetRequestHeader $http "Content-type" "application/json"

# Adds the "Authorization: Bearer ACCESS_TOKEN" header.
CkHttp_put_AuthToken $http "ACCESS_TOKEN"

# resp is a CkHttpResponse
set resp [CkHttp_PostJson3 $http "https://graph.microsoft.com/v1.0/teams" "application/json" $json]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $json
    exit
}

# A successful response is indicated by a 202 response status code and an empty response body.
puts "Response Status Code: [CkHttpResponse_get_StatusCode $resp]"
puts "Response Body:"
puts [CkHttpResponse_bodyStr $resp]

if {[CkHttpResponse_get_StatusCode $resp] >= 400} then {
    puts "Response Header:"
    puts [CkHttpResponse_header $resp]
    puts "Failed."
}

delete_CkHttpResponse $resp


delete_CkHttp $http
delete_CkJsonObject $json