bind raw - NOTICE acobaglan
 
proc acobaglan {from keyword text} {
    set text [split $text]
    set what [join [lrange $text 4 5]]
    if {$what == "Client connecting:"} {
     set nick [lindex $text 6]
     putserv "SAJOIN $nick #kanaladi
  }
}