#!/usr/local/bin/perl

use LWP::Simple;
use HTML::FillInForm;
use CGI;

print "start\n\n";

worldnews();
print $reply;

forumPost($reply);

print "end\n\n";

sub forumPost($reply){
	##form fields: TopicTitle,TopicDesc,Post
	print "start forumPost\n\n";
	my $html = get("http://www.mastersofporn.com/forums/index.php?s=&act=Post&CODE=00&f=13");
	#print $html;
	
	my $a = new CGI;
	my $b = new CGI;
	my $q = new CGI;
	
	$a->param("TopicTitle","testing");
	$b->param("TopicDesc","testing");
	$q->param("Post","$reply");
	
	my $fif = new HTML::FillInForm;
	my $output = $fif->fill(scalarref => \$html,
		#fobject => $q);
		fobject => [$a, $b, $q]);
		
	print $output;
	print "end forumPost\n\n";
}

sub worldnews {
	print "start worldnews\n\n";
	my $content = get("http://www.maximumedge.com/cgi/news/top.txt");
	my @lines = split("\n",$content);
	foreach $line(@lines) {
		my @parts = split(/\|/,$line);
		$reply .= "A HREF=\"http://www.maximumedge.com/cgi/news/article.cgi/";
		$reply .= $parts[0]."\">".$parts[1]."\/A>\n\n";
	}
	return $reply;
	print "end worldnews\n\n";
}