#!/usr/bin/perl -w

use strict;

use LWP::UserAgent;


my $searchString = "onyxia hide";
my $queryUrl = "http://www.thottbot.com/";

my $ua = LWP::UserAgent->new;
$ua->agent("ThottQuery/0.1 ");
# thottbot does a redirect to the item
push @{ $ua->requests_redirectable }, "POST";

my $req = HTTP::Request->new(POST => $queryUrl);
$req->content_type("application/x-www-form-urlencoded");
$req->content("s=" . $searchString);

my $res = $ua->request($req);

if ($res->is_success) {
	parseResponse($res->content);
} else {
	print $res->status_line, "\n";
}

sub parseResponse {
	my $content = $_[0];

	$content =~ s/(\r|\n)//g;
	$content =~ s/ / /g;

	while ($content =~ /<span class=quality(\d)><a href="\?i=(\d+)">.+<\/span>(.+)$/) {
		my $quality = $1;
		print "$1\n";
		my $id = $2;
		my $name = $3;

		#print "$quality $id $name\n";
		$content = $2;
	}
}