#!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 va
+r

    $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;

}
[download]