Sunday, October 29, 2006

BlogSpot Profile Hiter

Somehow came across my blog via google, found that only couple hits on my profile pages...hum, this doesn't look good, so I spent 5mins to write up this ugly script to auto hit.(Ooops, I must be bored!)

#!/usr/bin/perl

use LWP;
use strict;

my($usr_agent,$url,$i,$response,$num_hit);

$num_hit = < STDIN>;
$num_hit =~ /\d+/;

$usr_agent = new LWP::UserAgent;
$url="http://beta.blogger.com/profile/14114952655686676020";
$usr_agent->agent("oops");

$i=0;

while($i<$num_hit){

$usr_agent->timeout(25);
$response = $usr_agent->get($url);
++$i;
if($response->is_success){
print "Hit: $i\n";
}
}

Ha, now it has 252 hits....google doesn't need unique ip, or I have to grab bunch proxy which need more work.

No comments: