## Ban sebebi ?
set awhois(bansebep) "Whois'niz sunucu kurallarina aykiri!."
 
## Ban Suresi ? 0= temelli
## 90 = 90 dakika
set awhois(sure) "90"
 
# Whoisde hangi kelimeler gecerse kullaniciyi banliyacagiz ?
 
set kotu(list) {
"*****"
"*http://*"
"*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kontrol edilicek kanallar.?
 
set kanallar { #Sohbet }
 
##
 
  foreach chan [channels] {
set kanallar $chan
  }
 
bind join - * awhois(join)
 
##
 
proc awhois(join) {nick uhost hand chan} { 
  if {[strlwr $nick] == [strlwr $::botnick] || [matchattr $hand of|fo $chan]} {
    return
  } 
  putserv "WHOIS $nick" 
set awhois(banhost) *!*[string range $uhost [string first @ $uhost] e]
set ::reklamci $nick
set ::kanal $chan
set ::uhost $uhost
bind RAW - 301 awhois(kontrol)
}
 
proc awhois(kontrol) {from key arg} {
  global awhois kanallar
  set chan $::kanal
  set nick $::reklamci
  set uhost $::uhost
  set awaymesaj [string range [join [lrange $arg 2 end]] 1 end]
  foreach bla $::kotu(list) {
    if {![string match -nocase $bla $awaymesaj]} {
      continue
    }
awhois(banla) $nick $uhost
    break
  }
}
 
proc awhois(banla) {nick uhost} {
  global awhois kanallar
  putserv "privmsg $kanallar :$nick ve *!*[string range $uhost [string first @ $uhost] e] reklam yapti.!"
  putquick "MODE $kanallar +b *!*[string range $uhost [string first @ $uhost] e]"
  putkick $kanallar $nick $awhois(bansebep)
  newchanban $kanallar *!*[string range $uhost [string first @ $uhost] e] AwayWhois.Tcl $awhois(bansebep) $awhois(sure)
}
 
putlog "AwayWhois.tcl ...!"