Kod: Kodu kopyalamak için üzerine çift tıklayın!
set zaman_araligi "20"
if {![string match "*basla*" [timers]]} {
timer $zaman_araligi basla
}
proc basla {{text ""}} {
global zaman_araligi
set connect [::http::geturl
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]]
set files [::http::data $connect]
set list [split [subst -nocommands $files] "\n"]
foreach i $list {
putquick "gline -*@$i"
putquick "gzline -*@$i"
putquick "zline -*@$i"
putquick "kline -*@$i"
putquick "shun -*@$i"
putquick "PRIVMSG #Opers $i numaralı ip'ye atılan <gline/gzline/zline/kline/shun> kaldırılmıştır."
::http::cleanup $files
}
}
* http.tcl ile kullanman gerekli.