proc noticeler {from keyword arg} {
       global botnick bot server girTas
       if {[string match "*Client connecting on port*" $arg] } {
               set nick [lindex $arg 9]
               set host [string range [lindex [split [lindex $arg 10] "@"] 1] 0 end-1]
               set port [string range [lindex [split [lindex $arg 8] ":"] 0] 0 end]
               set ident [lindex [split [lindex [split [lindex $arg 10] @] 0] (] 1]
               if {$bot(prxydurum) == "on"} {
                       utimer 4 [list putquick "NOTICE $nick :Lütfen bekleyin; bilgileriniz taraniyor.."]
                       utimer 4 [list putquick "NOTICE $nick :Bu işlem yaklaşik 7 saniye dürmektedir."]
                       if {[info exists ::proxyliste]} {
                               foreach prxy $::proxyliste {
                                       if {[string match -nocase $prxy $host]} {
                                               putquick "GZLINE *@$host $bot(bansure) Sunucumuza wingate/socks/tor/proxy kullanarak giris yapamazsiniz."
                                               putquick "PRIVMSG $bot(logchan) :\002***\002 PROXY Giriş : Nick:\002$nick\002 IP: \002$host\002 Ident: \002$ident\002 PORT:\002$port\002"
                                               return 0
                                       }
                               }
                       }
                       utimer 6 [list putquick "NOTICE $nick :$nick kontrol den başarılıbir şekilde gectiniz hoş sohbetler.."]
                       utimer 7 [list putquick "PRIVMSG OperServ RAW SVSJOIN $nick$bot(JChanKanallar)"]
                       putquick "PRIVMSG $bot(logchan) :\002***\002 Güvenli Baglanti: Nick:\002$nick\002 Ident: \002$ident\002 Host: \002$host\002 Port:\002$port\002"
               return 0
               }
       }
}