bind raw * notice nick:connection 
proc nick:connection {from keyword arg} {  
  if {[string match -nocase "*Client connecting*" $arg]} { 
    set nick [lindex $arg 9]
      putquick "SAJOIN $nick #Kanal1,#Kanal2,#Kanal3,#Kanal4,#Kanal5" 
      putquick "NOTICE $nick Merhaba $nick" 
      putquick "NOTICE $nick Bağlantınız başarı ile tamamlandı ve sunucu yöneticisinin belirlediği kanala alındınız."
      putquick "NOTICE $nick Bilginize sunar, Teşekkür ederiz." 
    } 
} 
putlog "Connection TCL v1.0 - Written By CLubber"