proc noticeler {from keyword arg} {

       global botnick bot server

       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

               }

       }

}