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

 
bind join - * join_greet
proc join_greet {nick uhost handle channel} {
if {$chan != "#KANAL"} { 
putserv "PRIVMSG $nick :Text mesaj"
}
}