proc join_greet {nick uhost handle channel} { putserv "PRIVMSG $nick :\001VERSION\001"; } bind join - * join_greet