bind raw - NOTICE baglanti 
 
proc baglanti {from keyword text} { 
   if {[string match -nocase "*client connecting*" $text]} { 
   set nick [lindex [split $text] 9]
      if { $nick == "birnick" } { 
      putserv "sajoin $nick #kanaladi"
      } elseif { $nick == "baskabirnick" } {
      putserv "sajoin $nick #kanaladi"
      } elseif { $nick == "birbaskanick" } {
      putserv "sajoin $nick #kanaladi"
      }
   } 
}