Code: Select all
set klinecmd "kline %time %ban :%reason"
Code: Select all
putquick "kline +[kmasktype $uhost $ktype] $ktime $klmsg"
Code: Select all
putquick "kline $ktime [kmasktype $uhost $ktype] :$klmsg"
I just translated the mirc addon "Oz Nosense Nick Remover" to tcl, works pretty good.CosmicD wrote:just to stresstest that thing, I dont know can you privately point me to a good drone thingy for mirc ? i want to test it on my chans
PS: actually I wonder how this drone detection really works, like imagine you have other languages like polish that have lots of consonants after eachother, then it could be misread as a drone lol
Code: Select all
proc autoupd {src url} {
catch {set token [::http::geturl $url]}
if ![info exists token] return
if {[::http::ncode $token] == 200} {
set file [open $src w]
puts -nonewline $file [::http::data $token]
close $file
uplevel #0 {source $src}
} else {
putlog "update error: [::http::code $token]"
}
::http::cleanup $token
}
bind time - "22 02 % % %" {autoupd scripts/bar.tcl http://foo.com/bar.tcl;#}