+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : need help for pagerank script (/showthread.php?tid=1165)
need help for pagerank script - heartbroken - 07/04/2012
hi.
sorry i cant speak French,i was educated 1 year at school but it was too many years ago ,so i' forgot everything what i had learnd :d
i've been trying to make a pagerank script in last couple of days but i couldnt made it so i understood that to i need someone's help for to finish that b-cus i actualy dunno what i've trying to do with that.
this is my first time as you can see on code i am a newbie . i have try to make a get data from a web page script so i am trying to learn how ...i'd check some couple of scripts something similar and i had trying to made same on this but as you can see downstairs its not been working and i realy dunno how i can fix this.
i tried so many different ways for to get work this code but at last i understood that to i cant make it and i need help..
i will be thankful for all of your helps
best regards ..
here is that code''
Code :
package require http
bind pub - !pr pr
proc pr {nick uhost hand chan text} {
global botnick rank
if {![string match -nocase "#bum" $chan]} { return }
set site [lindex $text 0]
if {$site == ""} {putquick "PRIVMSG $chan :Yanlış yada eksik komut girdiniz. !pr http://site.com şeklinde olmalı.";return}
set connect [::http::geturl http://www.sitebilgi.net/]
set files [::http::data $connect]
regexp -- {</a></td><td class="sonuc"><span>...(.*?)</span></td>.*?} $files - googlePS
regexp -- {<td class="sonuc"><span>...(.*?)</span></td>.*?} $files - googleP
regexp -- {<td class="sonuc"><span>...(.*?)</span></td>.*?} $files - alexaG
regexp -- {<td class="sonuc"><span>...(.*?)</span></td>.*?} $files - alexaC
regexp -- {<td class="sonuc"><span>...(.*?)</span></td>.*?} $files - googleB
regexp -- {<td class="sonuc"><span>...(.*?)</span></td>.*?} $files - googleI
regexp -- {<td class="sonuc"><span>...(.*?)</span></td>.*?} $files - facebook
regexp -- {<td class="sonuc"><span>...(.*?)</span></td>.*?} $files - dmoz
regexp -- {<td class="sonuc"><span>...(.*?)</span></td>.*?} $files - yahooB
regexp -- {<td class="sonuc"><b><span>...(.*?)</span></b></td>.*?} $files - bingI
::http::cleanup $files
putquick "PRIVMSG $chan Google pagerank\0033$googleP: Alexa Dünya sırası\0033$alexaG:"
putquick "PRIVMSG $chan Alexa ülke sırası\0033$alexaC: Google backlink\0033$googleB:"
putquick "PRIVMSG $chan Google indeksi\0033$googleI: Facebook'ta paylaşım\0033$facebook:"
putquick "PRIVMSG $chan DMOZ kaydı\0033$dmoz: Yahoo indeks\0033$yahooB:"
putquick "PRIVMSG $chan Sayfa Hızı Skoru\0033$googlePS: Bing indeks sayısı\0033$bingI:"
}RE: need help for pagerank script - heartbroken - 07/04/2012
its just been solved the problem of this code.thanks anyway :)