Code:

proc pastebin_t t {return [exec echo $t | nc termbin.com 9999]}

Code:

bind pub - !paste pasteproc paste {n u h c t} {putserv "PRIVMSG $c :[pastebin_t $t]"}

Code:

proc pastebin_f f {return [exec cat $f | nc termbin.com 9999]}

Code:

set file "/home/user/botdir/file.txt"putserv "PRIVMSG #channel :[pastebin_f $file]"

Code:

package require httpproc tinyurl url {set token [::http::geturl http://tinyurl.com/api-create.php?url=$url]return [::http::data $token]::http::cleanup $token}

Code:

bind pubm - "% !tinyurl *" cmd_tinyurlproc cmd_tinyurl {n u h c t} {putquick "PRIVMSG $c :[tinyurl [lindex [split $t] 1 ]]"}