Webmaster Botu Pagerank TCL (Eggdrop)

Kod:
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 Website Value Calculator, Statistics and Information - HOROSKOPA.INFO]
     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 :0314Site Değeri: 0303$wsvalue  0314Pagerank: 0303$googlePR  0314Google Sonuçları: 0303$googleR"
     putquick "PRIVMSG $chan :0314Bing Sonuçları: 0303$bingR  0314Giden Bağlantılar: 0303$OGlinks  0314Yahoo Backlinks: 0303$yahooBL"
     putquick "PRIVMSG $chan :0314Alexa Yeri: 0303$alexa  0314Alexa Backlinks: 0303$alexaBL  0314DMoz Listesi: 0303$dmozL"
     putquick "PRIVMSG $chan :0314Yıl: 0303$age  0314IP Adresi: 0303$ip"
 }

  putlog "prank.tcl yüklendi"

hala yukardaki kodla alakalı bir takım sıkıntılar var üstesinden gelemediğim.ancak işinizi görecektir.(üzerinde çalışıcam çözebilirsem paylaşırım)

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s