alias temizle { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)   | return %x   }
alias dwhois { sockopen dwhois kimindir.com 80 }
on *:sockopen:dwhois: {
  set %swp sockwrite -n $sockname
  %swp GET $+(/,%domain) HTTP/1.1
  %swp Host: kimindir.com
  %swp $crlf
}
on *:sockread:dwhois: { 
  var %alien 
  sockread %alien 
  echo -a sockread %alien 
  if $regex(%alien,_ext/_img/check_2.gif) {
    msg #webmaster %domain kayıtsız. (kayıt edilebilir) 
    sockclose dwhois 
  } 
  if $regex(%alien,OluÅŸturulma Tarihi :) {
    msg #webmaster %domain kayıtlı. (alınamaz) 
    sockclose dwhois 
  } 
} 
on *:text:*:#webmaster: { 
  if $1 == !whois { 
    if !$2 { msg $chan Yanlış kullanım. Kullanmanız gereken kod: !whois domain.com , !whois domain.net gibi. } 
    else { 
      if !$regex($2,.com|.net|.org|.biz|.info|.com.tr|.in|.tv|.cc|.xxx|.co|.gen.tr|.me|.bel.tr|.org.tr|.gov.tr|.edu.tr|.web.tr|.name.tr) { 
        msg $chan Sorgulama başarısız. Sorgulama yapabileceğiniz uzantılar: com, net, org, biz, com.tr, info, in, tv, cc, gen.tr, co, me, bel.tr, gov.tr, edu.tr, web.tr, name.tr 
      } 
      else { 
        sockclose dwhois 
        set %domain $2 
        dwhois 
        msg $chan $2 domaini sorgulanıyor. 
      } 
    } 
  } 
}