proc join_greet {nick uhost handle channel} {
putserv "PRIVMSG $nick :Text mesaj"
}
bind join - * join_greet