Posts a random insult

#Looks up random insults
bind pub - !insult insult
proc insult {nick host hand chan arg} {

  package require http
  set url "http://www.randominsults.net/"
  set page [http::data [http::geturl $url]]
  regexp {<i>(.*?)<\/i>} $page a insult
  putserv "PRIVMSG $chan : $insult"
}

putlog "Random Insult v1.0"