#!/usr/bin/perl -w

use Data::Dumper;
use CGI qw(fatalsToBrowser);
use HTML::FillInForm;
use LWP::UserAgent;

my $q = new CGI;
my $fif = new HTML::FillInForm;
my $ua = LWP::UserAgent->new;

#form to auto populate
my $html;
my $form = 'http://www.cat16.com/submit.php';

#fields to populate
my %fields = (
	LINK_TYPE	=> 'My link_type',
	TITLE		=> 'My TITLE',
	URL		=> 'My URL',
	DESCRIPTION	=> 'my description',
	OWNER_NAME	=> 'my owner_name',
	OWNER_EMAIL	=> 'my owner_email',
	CATEGORY_ID	=> 'MY CATEGORY_ID',
	RECPR_URL	=> 'MY RECPR_URL',
	CAPTCHA		=> 'MY CAPTCHA',
	
);

#main
print $q->header();
print $q->start_html(-xbase=>"http://www.cat16.com");
$ua->timeout(5);
$ua->env_proxy;

my $res = $ua->get($form);

if ($res->is_success)
{
	$html = $res->content;
} else {
	die $res->status_line;
}

$html =~ s|</head>|<base href="$form"/></head>|sig;

foreach my $field (sort keys %fields)
{
	$q->param($field, $fields{$field});
}

#$q->param('TITLE',"My Title"); #set it
#$q->param('URL',"My URL"); #set it

#print Dumper($html);

my $output = $fif->fill(scalarref => \$html,
		  fobject => $q);

print $output;