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]