Code: Select all
set query [::http::geturl http://tinyurl.com/api-create.php?url=$someurl]
set url [lindex [split [::http::data $query] \n] 0]
Code: Select all
set query [::http::geturl http://v.gd/create.php?url=$somelongurltoshorten&format=simple]
set url [lindex [split [::http::data $query] \n] 0]
putserv "PRIVMSG $channel :$url"