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

  if $regex(%alien,_ext/_img/check_2.gif) {

    msg #webmaster %domain kayıtsız. (kayıt edilebilir)

    sockclose dwhois

  }

  if $regex(%alien,$+(href=”http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">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.

      }

    }

  }

 
}