set baglandi_msg "mesajın buraya ne yazarsan yaz"
 
bind raw - NOTICE baglandi 
 
proc baglandi {from keyword arg} { 
global baglandi_msg
 if {[string match -nocase "*Client connecting *" $arg]} { 
 set nick [lindex $arg 9]
 putquick "PRIVMSG $nick $baglandi_msg"
 } 
}