#!/usr/bin/perl
#
use common;
use CGI;

$BADMOVIES_URL	=	'http://www.badmovies.org/movies/';
$LINK_FORMAT	=	'/movies/.*?/index.html';
$LEARNED_REGEXP =	'<img SRC=/common/learned.gif>(.*?)</font><br>';

my @quotes;

my $query = new CGI;
my $mode  = $query->param('mode');

print "Content-type: text/html\n\n";
$content = getpage ($BADMOVIES_URL);

@movies = exturl ($content,$LINK_FORMAT,'',$BADMOVIES_URL);

$movies_size = @movies;

$randurl = $movies[rand($movies_size-1)];

$content = getpage($randurl);

if ($content =~ /<title>\s*Review for (.*?)\s*\n/si){
	$title = $1;
	chomp $title;
}

if ($content =~ /learned.gif(.*?)<\/table>/si){
	my $learned = $1;
	while ($learned =~ /tdnobord'> (.*?)\s*\n/gsi){
		push @quotes,$1;
	}
}

print qq|<html><head><title>Things I learned from B-Movies</title><head><body>\n|;

if ($mode eq 'fortune'){
	my $quote_size = @quotes;
	my $quote = $quotes[rand($quote_size-1)];
	print qq|<p align="center"><font size="5"><br><br>$quote<br><br>|;
	print qq|(<a href="$randurl">$title</a>)</font></p>|;
}else{
	print qq|<p align="center"><font size="5"><br><a href="$randurl">$title</a><br><br></font>|;
	print join ("<br>\n",@quotes);
}

print qq|</body></html>|;


