###############   K O M U T L A R  B Ö L Ü M Ü   #############  
##                                                          ##  
##     Botumuzun sunucu üzerindeki çalıştıran komutlarını   ##  
##      kendinize özel yapabilir yada asla değiştirmeden    ##  
##             mevcut hali ile kullanabilirsiniz            ##  
##                                                          ##  
##############################################################  

set webmaster(kanal) "#SEO"  
set webmaster(pr) "!pagerank"   

bind pub - $webmaster(pr) pr:check   
proc pr:check {nick uhost hand chan text} {   
  global botnick webmaster  
  if {[string match "$webmaster(kanal)" $chan]} {  
    set url [lindex $text 0]   
    if {$url == ""} {  
      putquick "PRIVMSG $webmaster(kanal) :Hata: Herhangi bir web sitesinin pagerank değerini öğrenmek için lütfen bir url belirtiniz."  
    }   
    set connect [::http::geturl 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set files [string map[list n " "] [::http::data $connect]]  
    regexp -- {<span>.*? has pagerank is : <font>(.*?)</font></span><br/>} $files - rank  
    ::http::cleanup $connect   
    putquick "privmsg $webmaster(kanal) › Belirtmiş olduğunuz url: $url"  
    putquick "privmsg $webmaster(kanal) › Google pagerank değeriniz: $rank"   
  }  
}