bind raw * notice nick:connection
proc nick:connection {from keyword arg} { 
  global botnick
  if {[string match -nocase "*Client connecting on*" $arg]} {
    set nick [lindex $arg 9]
    set ident [string range [lindex [split [lindex $arg 10] "@"] 0] 1 end]
    if {[string match -nocase "IDENTBURAYA" $ident]} {
      putquick "SAJOIN $nick #ÇEKİLECEĞİKANAL"
     }
   }
}