Stuff

set tv(perms) "-|-"

bind pub $tv(perms) !tv pubshowinfo

proc showinfo {t c} {
  putserv "PRIVMSG $c :This is $t"
  if {![string length $t]} {
    return "Error: must specify a show"
  }



  return "OK"
}

proc pubshowinfo {n u h c t} {
  set mystr [showinfo $t $c]
  putserv "PRIVMSG $c :$mystr"
}