ScanX'ın içinde, var bu tcl.
Oradan alıp kullanabilirsiniz isterseniz.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind raw * notice tsnotice
proc tsnotice {from keyword arg} {
global girTas
if { [string match "*Client connecting on port*" $arg] } {
if {![info exists ::gr]} {
set ::gr [lindex $arg 9]
utimer 3[list girTas]
return 0
}
append ::gr " [lindex $arg 9]"
utimer 3[list girTas]
if {[llength $::gr] >= "5"} {
foreach nck $::gr {
putserv "GZLINE $nck 1h :\00305Giriş yoğunluğu tesbit edilmiştir. \00302(\00304ScanX\00302)\003"
}
unset ::gr
}
}
}
proc girTas {} {
set ::gr [lrange $::gr 1 end]
}
utimer3 arada boşluk olması gerek, forumdan dolayı çıkmıyor.