# proxycheck.tcl - Proxy.txt IP'leri bağlanınca KLINE atar
set proxy_list_file "proxy.txt"
set proxy_kline_reason "Proxy tespit edildi. Erişiminiz engellendi."
bind evnt - init-server evnt_init_server
bind raw - "NICK" check_user_proxy
# Kullanıcı bağlandığında IP'yi kontrol eder
proc check_user_proxy {from keyword text} {
global proxy_list_file proxy_kline_reason
# Gelen IP'yi al
if {[regexp {^\S+ \S+ (\S+) \S+ :(.*)$} $text -> ip nick]} {
# Proxy listesi oku
if {[file exists $proxy_list_file]} {
set proxyfile [open $proxy_list_file r]
set proxies [split [read $proxyfile] "\n"]
close $proxyfile
foreach proxyip $proxies {
if {[string match $proxyip $ip]} {
putlog "proxycheck.tcl: $ip adresi proxy listesinde! KLINE uygulanıyor."
putquick "PRIVMSG OperServ :KLINE ADD $ip 7d $proxy_kline_reason"
break
}
}
}
}
return 0
}
proc evnt_init_server {} {
putlog "proxycheck.tcl yüklendi. Proxy.txt ile bağlantı IP'leri kontrol edilecek."
}