(Tcl) Get Current User Information

Demonstrates how to retrieve information about the current Facebook user. This is the most basic thing to get working first (after obtaining an access token).

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

# This example assumes we previously obtained an access token
set oauth2 [new_CkOAuth2]

CkOAuth2_put_AccessToken $oauth2 "FACEBOOK-ACCESS-TOKEN"

set rest [new_CkRest]

# Connect to Facebook and send the following GET request:

# GET /v2.7/me HTTP/1.1
# Host: graph.facebook.com
set bAutoReconnect 1
set success [CkRest_Connect $rest "graph.facebook.com" 443 1 $bAutoReconnect]
if {$success != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkOAuth2 $oauth2
    delete_CkRest $rest
    exit
}

# Provide the authentication credentials (i.e. the access key)
CkRest_SetAuthOAuth2 $rest $oauth2

set responseJson [CkRest_fullRequestNoBody $rest "GET" "/v2.7/me"]
if {[CkRest_get_LastMethodSuccess $rest] != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkOAuth2 $oauth2
    delete_CkRest $rest
    exit
}

puts "$responseJson"

# The responseJson looks like this:
# {"name":"John Doe","id":"10111011320111110"}

delete_CkOAuth2 $oauth2
delete_CkRest $rest