Moderation : Thanks to use [ tcl ] and [ /tcl ] tags
Can you tell us what is the trouble ? Or show the errors you get ?
proc greet {nick uhost handle chan} {
if {![matchattr $handle |+n $chan]} { return }
putserv "PRIVMSG $chan :hey welcome $nick"
}
bind join |+n * greet