; Take to PR Value from PageRank.Gen.TR
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } }
on *:sockopenr:{
sockwrite -n $sockname GET /pagerank-sorgula/ $+ %site HTTP/1.1
sockwrite -n $sockname Host: pagerank.gen.tr $+ $crlf $+ $crlf
}
on *:sockreadr:{
var %prdeger
sockread %prdeger
if (<br><h2> isin %prdeger) echo -a *** Your Web Site PageRank value 410 Up: $+ 4 $remove(%prdeger,<br><h2>,</h2>,/,10,$chr(9)) | .unset %site
}
alias pr {
if $1 == $null {
.echo -a Hata! 4Please state a web site.. Exp: /pr R10.net
}
if $1 == Google {
.echo -a *** Your Web Site PageRank value 410 Up:4 10
}
else {
.set %site $1
.sockclose pr
.sockopen pr pagerank.gen.tr 80
}
}
on *:load:{
.echo -a 2Google Welcome to PageRank`s result..
.echo -a 2Usage:
.echo -a 7/pr www.website.com
.echo -a 7If you want realy result please add www.
.echo -a 2By Budun©
.echo -a 2www.r10.net