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

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