bind pub mn|mn . pub_dot
proc pub_dot {n u h c a} {utimer 1 "[list pub_dot_say $c]"}
proc pub_dot_say {c} {putserv "PRIVMSG $c :."}