IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Eggdrop

Kod:
###############   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"   

  }  

}