Code:

bind pub -|- !pr pr:pr package require httpproc 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"} }