#!/usr/bin/perl require 'variables.cgi'; $DataBase = "$DomainPath/$DataBase"; @ARGV = split(/\\*\&/, $ENV{'QUERY_STRING'}); $ARGV[0] =~ s/\W//g; if (!$ARGV[1]) {&html;} else {&frame;} sub html{ if (!$ARGV[0]) {$affiliate = "$StartId";} else {$affiliate = "$ARGV[0]";} print "Content-type:text/html\n"; print "Cache-Control: max-age=0\n\n"; if (-e "$DataBase/$affiliate/profile") { $affiliate = "$affiliate"; } else {$affiliate = "$StartId";} open (MEMBER, "$DataBase/$affiliate/profile"); flock (MEMBER, LOCK_EX); seek (MEMBER, 0, 1); $MemberInfo = ; close (MEMBER); chomp ($MemberInfo); @MemberInfo = split (/\|/, $MemberInfo); print < $MemberInfo[11]
Loading...
Please wait while we load the page. It only takes a few seconds. If the site doesn't load, make sure you have a java enabled browser and try again. If your system doesn't support java you should be able to get a free download here. If you have java and the site still doesn't load, click here to try again.
HTML exit; } sub frame { if (!$ARGV[0]) {$affiliate = "$StartId";} else {$affiliate = "$ARGV[0]";} $data{'url'}="$DomainURL/index.cgi?$ARGV[1]&$affiliate"; print "Content-type:text/html\n"; print "Cache-Control: max-age=0\n\n"; if (-e "$DataBase/$affiliate/profile") { $affiliate = "$affiliate"; } else {$affiliate = "$StartId";} open (MEMBER, "$DataBase/$affiliate/profile"); flock (MEMBER, LOCK_EX); seek (MEMBER, 0, 1); $MemberInfo = ; close (MEMBER); chomp ($MemberInfo); @MemberInfo = split (/\|/, $MemberInfo); print < $MemberInfo[11] <body bgcolor="#ffffff" text="#000000" link="#0000ff" vlink="#ff0000" topmargin="200"> <font size="5"><center>'); Please <a href="$data{'url'}">click here</a> or use a frames capable browser.</center></font> </body><html> HTML exit; }