Enter a search term check the script type and click submit. To search for a general category for example to find all results for scripts working with text files or file manipulation enter file or curl. Same for directory, sql etc. Otherwise use specific terms.
Here is the script you requested.
cgiscripts/affiliate-tracking-cgi-script.txt: 2140 bytes
cgi affiliate tracking script simple script to incorporate into your application
cgi tracking affili
ate script
#!/usr/bin/perl
######################################################################
####
# Affiliate Tracker Version 1.00
package VAR;
use strict;
# URL to redirect surfers who ar
e referred to your site by an affiliate
# site.
$VAR::URL = "http://www.yourdomain.com/";
########
##################################################################
# Do NOT change or alter the cod
e below!
##########################################################################
eval {
($0 =~
m,(.*)/[^/]+,) && unshift (@INC, "$1");
require 5.004;
use CGI;
};
if ($@) {
print "Content-type:
text/html\n\n";
print "Server Error Message: $@\n";
exit;
}
eval { &main; };
if ($@) {
print "C
ontent-type: text/html\n\n";
print "Server Error Message: $@\n";
exit;
}
exit;
##################
#############################
# Main
###############################################
sub main {
my
$ID = $ENV{'QUERY_STRING'};
my $query = new CGI;
if ($ID) {
my $cookie = $query->cookie(-name=>'R
evShare_ID',
-value=>"$ID",
-expires=>'+1y',
-path=>'/');
print "Set-Cookie: $cookie\n";
}
print $query->redirect($VAR::URL);
}
###########################################################
#########page 1
##page 2
#!/usr/bin/perl
###################################################
#######################
# Affilate Tracker Version 1.00
##########################################
################################
use strict;
eval {
($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1")
;
require 5.004;
use CGI;
};
if ($@) {
print "Content-type: text/html\n\n";
print "Server Error
Message: $@\n";
exit;
}
eval { &main; };
if ($@) {
print "Content-type: text/html\n\n";
print "S
erver Error Message: $@\n";
exit;
}
exit;
###############################################
# Main
#
##############################################
sub main {
my $query = new CGI;
my $ID = $query->co
okie('RevShare_ID');
print "Content-Type: text/html\n\n";
if ($ID) { print qq~<input type="hidden"
name="RevSharerID" value="$ID">~; }
}
Post a comment
No comments yet