#!c:/Perl/bin/perl

use CGI;
use HTTP::Headers;
use HTTP::Request;
use LWP::UserAgent;

$q = new CGI;
$blankthing = ""; #set inital

$pictureurl = $q->param('pictureurl');

$picturedesback = $q->param('picturedes') || $blankthing; #put into var

	$picturedes = $picturedesback;
	$picturedes2 = $picturedesback;
$altpicturedes = substr($picturedes2, 0,39);# = "";  #cut off after 79 charactors

$bannerurl = "http://www.blah.com/banner.gif";
$siteurl = "http://www.blah.com/";
$bannertext = "blah";
$email = "webmaster\@blah.com";
$reclink = 'http://www.blah.com/';

$counterthing = $q->param('whatsite');

$beginpicurl = "www.blah.com";

if ($counterthing eq 1) 
{
$counterthing = $counterthing + 1;

$posttourl = "http://www.blah.com";
$refererurl = "http://www.blah.com";

$beginpicurl = "www.blah.com";
$q = new CGI( {
	PictureURL=>"http://". $beginpicurl . "/" . $pictureurl,
	PictureDescription =>$picturedes,
	BannerURL=>$bannerurl,
	SiteURL=>$siteurl,
	BannerText=>$bannertext,
	Email=>$email,
	Reciprocal=>$reclink,
	action=>"SendNow",
});

&dothething;

}
elsif ($counterthing eq 2)
{
$counterthing = $counterthing + 1;
$posttourl = "http://blah.com";
$refererurl = "http://blah.com";

$q = new CGI( {
	purl=>"http://$beginpicurl/$pictureurl",
	desc =>$picturedes,
	surl=>$siteurl,
	burl=>$bannerurl,
	fnct=>"add_account",
});

&dothething;
}

elsif($counterthing eq 3)
{
print $q->header;
print "all done click back";
exit;
}

else{
print $q->header;
print "ERROR";
}

sub dothething {

$formdata = $q->query_string;

$h = new HTTP::Headers(
	Accept=>'text/html, text/plain, image/*',
	Referer=> $refererurl,
	Content_Type=>'application/x-www-form-urlencoded',
	Content_Base=>$posttourl,
	User_Agent=>"Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; Win 9x 4.90)",

);

$req = new HTTP::Request(
	POST,
	$posttourl,
	$h
);

$req->content_type('application/x-www-form-urlencoded');
$req->content($formdata);

$ua = new LWP::UserAgent(
	agent=>"Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; Win 9x 4.90)",
);

$response = $ua->request($req);

$JSCRIPT=<<END;

function nexturl()
{
window.parent.location = "http://blah.com/";
}
setTimeout("nexturl()", 15000);
END

print $q->header;
print $q->start_html(-script=>$JSCRIPT);
print "<BASE href=$posttourl>";
print $response->content;
#print $q->end_html;

}