bind raw * notice baglanti
proc baglanti {text} {
    if {[string match -nocase "*Client connecting on port*" $text]} {
    set port [lindex $text 6667]
    putquick "PRIVMSG #Opers :$nick su anda $port undan sunuya giriş yaptı."
    }
}