Çevrimdışı

S.a arkadaşLar
ScanX.tcL dosyasında buLunan korumaLar satırının giriş taşma böLümündeki satırLarı ayarLayamadım yardımcı oLurmusunuz;5 saniye içinde 10 giriş oLursa gzLine uyguLansın istedim ama aşağıdaki standart değerLeri değiştirdiğimde sunucuya bağLanan ama henüz girmeyen userLara gzLine atmıştır.bu konuda yardımLarınızı bekLiyorum. şimdiden tşk ederim.
gördüğüm kadarıyLa bu standart değer 3 saniyede 5 giriş oLursa gzLine atıLıyor. ama iLk satırdaki * notice tsnotice kısmının aLtındaki utimer ve 9 sayısını gösteren değerLeri anLayamadım.

bu standart değerLeri
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
}
bu ise benim vermiş oLduğum değerler
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 5[list girTas]
if {[llength $::gr] >= "10"} {
foreach nck $::gr {
putserv "GZLINE $nck 1h :\00305Giriş yoğunluğu tesbit edilmiştir. \00302(\00304ScanX\00302)\003"
}
unset ::gr
}
5 saniye içerisinde 10 giriş oLursa gzLine uyguLansın istedim. ama sonuç oLarak giren herkese sebepLi gzLine uyguLuyor. deep freeze oLduğundan LogLarı kaybettim. örnek oLarak birtanesini göstermek isterdim.