:smilie_weihn_winki:Can anyone help me tweak this code so you can add a tracking id to it? :crap:
Here's the cgi file:
[high=language]#!/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 = "youraffnick";
################################################################################
### 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;
}[/high]
And this is the read me text:
#####################################################################
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
######################################################################
Here's the cgi file:
[high=language]#!/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 = "youraffnick";
################################################################################
### 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;
}[/high]
And this is the read me text:
#####################################################################
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
######################################################################
