bind pubm - "!hot*" pubm:link

proc pubm:link {nick uhost handle chan text} {
  if {$text != ""} {
    if {[catch {ln -s bleh} result] != 0} {
      putserv "PRIVMSG $chan :\002Error\002: $result"
      return 1
    }
    putserv "PRIVMSG $chan :Linked: $text"
  }
}