package require http 
bind pub - !pr pr
 proc pr {nick uhost hand chan text} {
     global botnick rank
     if {![string match -nocase "#kanalınız" $chan]} { return }
     set site [lindex $text 0]
     if {$site == ""} {
         putquick "PRIVMSG $chan :Yanlış bir komut yazdınız. !pr google.com şeklinde olmalı."
         return
     }
 
    # sitenizin linki buraya
     set connect [::http::geturl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]]
     set files [::http::data $connect] 
    # tüm gereksiz kod satırlarını siliyoruz, şimdi $files için tüm verileri tek satırla alabileceğiz
     regsub -all -- {\n|\t} $files "" files
 
    # $files için gerekli verileri alıyoruz
     regexp -- {<h2>Website Value</h2>.*?<b>(.*?)</b>} $files - wsvalue
     regexp -- {<h3>Page Rank</h3>.*?<b>(.*?)</b>} $files - googlePR
     regexp -- {Google Results</a>.*?<td>(.*?)</td>} $files - googleR
     regexp -- {Bing Results</a>.*?<td>(.*?)</td>} $files - bingR
     regexp -- {Outgoing Links</a>.*?<td>(.*?)</td>} $files - OGlinks
     regexp -- {Yahoo Backlinks</a>.*?<td>(.*?)</td>} $files - yahooBL
     regexp -- {Alexa</a>.*?<td>(.*?)</td>} $files - alexa
     regexp -- {Alexa Backlinks</a>.*?<td>(.*?)</td>} $files - alexaBL
     regexp -- {DMoz Listing</h3>.*?<a .*?>(.*?)</a>} $files - dmozL
     regexp -- {Age</h3>.*?<a .*?>(.*?)</a>} $files - age
     regexp -- {IP Address</h3>.*?<a .*?>(.*?)</a>} $files - ip
     ::http::cleanup $files
 
     putquick "PRIVMSG $chan :\00314Site Değeri: \00303$wsvalue  \00314Pagerank: \00303$googlePR  \00314Google Sonuçları: \00303$googleR"
     putquick "PRIVMSG $chan :\00314Bing Sonuçları: \00303$bingR  \00314Giden Bağlantılar: \00303$OGlinks  \00314Yahoo Backlinks: \00303$yahooBL"
     putquick "PRIVMSG $chan :\00314Alexa Yeri: \00303$alexa  \00314Alexa Backlinks: \00303$alexaBL  \00314DMoz Listesi: \00303$dmozL"
     putquick "PRIVMSG $chan :\00314Yıl: \00303$age  \00314IP Adresi: \00303$ip"
 }
 
 
  putlog "prank.tcl yüklendi"