Proxy Koruması

- ##
## proxy.tcl
## proxy girişleri için benzersiz koruma.
##
## Yapımcı: SaW
##

# Sunucu IP adresini belirtiniz.
set sunucuip " 67.228.116.50"
bind time - "30 * * * *" proxy:check
bind time - "00 * * * *" proxy:check
bind time - "01 * * * *" proxy:socks
package require http
proc proxy:check {nick uhost hand chan text} {
set havasite "[url=http://www.torproxylist.com/]http://www.torproxylist.com/[/url]"
set sayfa ""
catch {set sayfa [::http::geturl $havasite -timeout 5000]} error
if {[string match -nocase "*couldn't open socket*" $error]} {
putquick "PRIVMSG $chan :Hata: Şuan siteye bağlanılamıyor.. Daha Sonra Tekrar Deneyiniz.."
::http::cleanup $sayfa
return
}
if { [::http::status $sayfa] == "*timeout*" } {
putquick "PRIVMSG $chan :Hata: Bağlantı zaman aşımına uğradı.."
::http::cleanup $sayfa
return
}
set html [::http::data $sayfa]
::http::cleanup $sayfa
set bugun [strftime %Y-%m-%d]
set gh [open proxy2.txt w]
foreach y [split $html \n] {
if {[regexp { [0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3} } $y]} {
regexp -- { (.*?)