need help for pagerank script

[heartbroken]

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:" }