Posted to tcl by stevel at Mon Oct 24 08:35:36 GMT 2016view pretty

package require json
package require oauth
set consumer_key 	xxxxx
set consumer_secret	xxxxx
set token 			xxxxx
set token_secret 	xxxxx
oauth::config -consumerkey $consumer_key -consumersecret $consumer_secret -accesstoken $token -accesstokensecret $token_secret
set url https://api.twitter.com/1.1/search/tweets.json?q=[urlEncode $::hashtag]&count=1000
set url https:// ;# <-- you need the Facebook API end point
set response [oauth::query $url]
set posts [dict get [::json::json2dict [lindex $response 1]] statuses]