bind pub -|- .dns dns:captcha
 
 proc dns:captcha {nick uhost hand chan text} {
  set a [lindex [split $text] 0]
  set b "host $a"
  catch {eval exec $b} c
  set output $c
  if {$output == ""} { puthelp "privmsg $chan : sonuç yok.." 
  return 0
  } else {
  set i 0
  foreach line [split $output "\n"] {
    putserv "privmsg $chan :[string map -nocase {"has address" "adresi" "is handled by" "tarafından sunuluyor" "domain name pointer" "etki alanı sahibi" "has IPv6 address" "var olan IPv6 adresleri" "is an alias for" "için takma adıdır"} [join $line]]"
     incr i
     }
   }
}
 
putlog "ok....""

package require http
 
bind pub -|- .d domain:whois
 
proc domain:whois {nick uhost hand chan text} {
  set q [lindex [split $text] 0]
 
::http::config -useragent "UserAgent"
set url [::http::geturl "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
15000]
set data [::http::data $url]
::http::cleanup $url
    regexp -- {>Hostname: <a href=".+">(.*?)</a></div>} $data "" adr
    regexp -- {>Google Pagerank: <strong>(.*?)</strong></div>} $data "" nmbr
    regexp -- {>Registrar</div><div id="reginfo_v">(.*?)<} $data "" regi
    regexp -- {>Whois Server</div><div id="reginfo_v">(.*?)<} $data "" wserv
    regexp -- {>Nameservers</div><div id="reginfo_v">(.*?)<} $data "" nserv
    regexp -- {>Status</div><div id="reginfo_v">(.*?)<} $data "" stts
    regexp -- {>Created</div><div id="reginfo_v">(.*?)<} $data "" crt
    regexp -- {>Expires</div><div id="reginfo_v">(.*?)<} $data "" eprs
    regexp -- {>Updated</div><div id="reginfo_v">(.*?)<} $data "" upda
    puthelp "privmsg $chan :$q = IP: $adr | Google Pagerank: $nmbr | kaydı: $regi | whois sunucusu: $wserv | alan-adı sunucusu: $nserv | durumu: $stts | oluşturulma tarihi: $crt | son bulma tarihi: $eprs | güncelleme zamanı: $upda"
     return 0
}