pr info script

[heartbroken]

hey ..

i just want to make a script for to triggering !pr www.somewebpage.com to the bot.

Code: Select all

bind pub -|- !pr pr:pr 

package require http

proc pr:pr {nick host handle chan content} { 

set channel "#kanalınız"
set hiz "googlePS" 
set pagerank "googleP" 
set alexaUsira "alexaC" 
set alexaDsira "alexaG" 
set ggblink "googleB" 
set ggindex "googleI"
set face "facebook"
set dmozreg "dmoz"
set yahobl "yahooB"
set bingindex "bingI"

set content [http::data [http::geturl "http://www.sitebilgi.net"]] 
if {[regexp "<td><span>...</span></td>" $content match pr] } { 
regsub -all {<alt>} $match {} match 
putserv "PRIVMSG $channel : \002\0034,1 $nick sitebilgi.net adresinden bilgi bekleniyor.\003\002" 
putserv "PRIVMSG $channel : \002\0034,1 Sayfa hızı skoru $hiz \0030,1:: \0034,1Google pagerank $pagerank Alexa dünya sırası $alexaDsira \0030,1::\0034,1 Alexa ülke sırası $alexaUsira \003\002" 
putserv "PRIVMSG $channel : \002\0034,1 Google backlink $ggblink \0030,1:: \0034,1Google indeksi $ggindex Facebook'ta paylaşım $face \0030,1::\0034,1 DMOZ kaydı $dmozreg \003\002"
putserv "PRIVMSG $channel : \002\0034,1 Yahoo backlink $yahobl \0030,1:: \0034,1Bing indeks sayısı $bingindex \0030,1::\0034,1 bilgi alımı tamamlandı. \003\002"
} 
} 

i dont have any experience as you can see with coding.but i have try to creat somethings like this but i couldnt know how can i transfer data from this www.sitebilgi.net site.i dont know which part of this web site's source code i should use for to transfer data into this script.and i dont know how can i do this.

can someone help me for to creat socket with this site into this script please ?

thank you..