-
If you want to join this project, contact me:
open.tcl script:
bind pub - !open webdata
package require http
proc webdata {nick host hand chan arg} {
set token [::http::geturl http://www.shackspace.de/sopen/text/en]
set data [::http::data $token]
::http::cleanup $token
putlog $data
puthelp "privmsg #shackspace :$nick, shack is $data"
}