Help with cgi script
Can anyone help me with this script?
#!/usr/bin/perl
use CGI;
use LWP::UserAgent;
my $q=new CGI;
### specify here your default affiliate nickname. it will be used
### if you don't add parameter a=youraffnick in the URL (see README.TXT)
$affnick = "cbnickname";
################################################## ##############################
### nothing to change below
################################################## ##############################
$v = $q->param("v");
if (!$q->param("a")) {
$a = $affnick;
}else{
$a = $q->param("a");
}
if (!$q->param("v")){
print "Content-type: text/html\n\n";
print "Error: vendor nickname not specified\n";
exit;
}
$url = "http://$a.$v.hop.clickbank.net";
GetLink($url);
&PrintPage;
sub GetLink {
$nurl=shift;
$id=shift;
$ua = new LWP::UserAgent;
$ua->agent("Mozilla/4.0");
$req = new HTTP::Request 'GET' => $nurl;
$req->header('Accept' => 'text/html');
$res = $ua->request($req);
if ($res->is_success) {
$content=$res->headers_as_string.$res->content;
$real_url=$res->base;
$content=~/URL=([^\s]+)/;
$newurl=$1;
$real_url=~s/\?.*$//;
} else {
$real_url=$url;
}
}
sub PrintPage {
$body = qq~
<html>
<head>
<title>Loading...</title>
<script language="JavaScript">
setInterval("window.status='Loading...'",50);
</script>
<script language="JavaScript">
<!--
function UpdateLoader(){
document.all.Loader.innerHTML = '<a href="$real_url"><b>Click here if your browser sticks on this page</b></a>';
}
setTimeout("UpdateLoader()",3300);
//-->
</script>
<script language="JavaScript" type="text/JavaScript">
function forward() {
window.location.replace('$real_url');
}
setTimeout("forward()",1200);
</script>
</head>
<body bgcolor="silver">
<img src="$url" width="1" height="1" border="0">
<div align="center"><center>
<table border="0" width="100%" height="98%" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><div align="center"><center><table width="100%" border="0"
cellspacing="0">
<tr style="font-family: Verdana, Tahoma, Arial; font-size: 14pt">
<td align="center" ID="Loader"></td>
</tr>
<tr style="font-family: Verdana, Tahoma, Arial; font-size: 14pt">
<td align="center"><noscript><a href="$real_url"><font color="black"><b>Click here if
your browser sticks on this page</b></font></a></noscript></td>
</tr>
</table>
</center></div></td>
</tr>
</table>
</center></div>
</body>
</html>
~;
print "Content-type: text/html\n\n";
print $body;
exit;
}
Here's the read me file:
################################################## ###################
1. Open file cbnick.cgi with any plain text editor and edit following
parameter:
### specify here your default affiliate nickname
### it will be used if you don't add parameter a=youraffnick in the URL
$affnick = "youraffnick";
Save it.
################################################## ####################
2. Upload file cbnick.cgi to the http://www.yourdomain.com/cgi-bin/
folder in ASCII mode and chmod it 755
################################################## ####################
3. Now instead of regular hoplinks use the following one:
http://www.yourdomain.com/cgi-bin/cblink.cgi?v=vendornick
This way script will retreive real url of that vendor, then you will get
cookie to be credited for that sale and then it will redirect you to the
vendor's URL without ?hop=youraffnick at the end.
This script AdWords compatible because when visitor clicks Back button
he will be taken back to the referring site where he was coming from.
You can also dynamically add your affiliate nickname different from
the default one that you set while doing setup in file cblink.cgi
Just use the following link format
http://www.yourdomain.com/cgi-bin/cblink.cgi?v=vendornick&a=anotheraffiliatenickname
################################################## ####################
-- Lisa G
-- Lisa G
Eight bytes walk into a bar. The bartender asks, âCan I get you anything?â
âYeah,â reply the bytes. âMake us a double.â
-- Lisa G
-- Lisa G