# aptitude install zlib1g-dev

#!/usr/bin/perl -w
use open ':locale';
use WWW::Mechanize;
use WWW::Mechanize::TreeBuilder;

my $url = "http://foro.elhacker.net";

if(($#ARGV+1) != 3) { 
	print "\nparsehck.pl user pass sleep.\n";
	exit;
}

($username, $password, $sleep) = @ARGV;

$mech = WWW::Mechanize->new();
WWW::Mechanize::TreeBuilder->meta->apply($mech);
$response = $mech->get($url . "/login.html");
die unless $response->is_success;

$fields = { "user" => $username,
	    "passwrd" => $password,
};

$response = $mech->submit_form(form_id => 'frmLogin',
			       fields => $fields);
die unless $response->is_success;

$response = $mech->get($url . "/profile.html");
die unless $response->is_success;

if($mech->content =~ m/<a href="(.*)">Mostrar Mensajes<\/a><br\/>/) {
	$PROF = $1;
	$response = $mech->get($PROF);
	die unless $response->is_success;
	if($mech->content =~ m/<a class="navPages" href=".*">(\d+)<\/a>/ and $1>0) {
		for($i = 0; $i < $1; $i += 10) {
		$mech->get($PROF . ";start," . $i);
		@posts = $mech->look_down('_tag' => 'div',
			     	  	  'class' => 'post');
		foreach (@posts) { print $_->as_text() . "\n\n"; }
		sleep($sleep);
		}
		
	}
}