#!/usr/bin/perl
#list-cj.cgi
# http://www.goldenpix.com/cgi-bin/list.cgi?a=sites&p=partner&r=adserver

$LOCK_EX=2;
$LOCK_UN=8;

# print "Content-Type: text/html\n\n";
# print "\n";

$env_maindir="/home/clients/dmchome_ftp0/domains/tyhehun.net/html/redirectmaster/test/logs";
$env_linkdir="/home/clients/dmchome_ftp0/domains/tyhehun.net/html/redirectmaster/test";

# http://127.0.0.1/cgi-bin/follow.cgi?w=axistek&v=slava&i=google

#------------------------------------------------------------------------------

sub Register_Click ($u, $p, $r, $dat, $tim, $ip, $referrer, $lr, $cr)
{
 $url=$_[0];
 $par=$_[1];
 $res=$_[2];
 $dat=$_[3];
 $tim=$_[4];
 $ipi=$_[5];
 $cref=$_[6];
 $lref=$_[7];
 $sref=$_[8];

 if (!$cref) { $cref="none" }
 if (!$lref) { $lref="none" }
 if (!$sref) { $sref="none" }
 $path=$env_maindir."/".$dat."-list".".log";

$referer=$ENV{'HTTP_REFERER'};
if (!$referer) { $referer="none"; }
# print "PATH=$path ";

 $cont="$tim $ipi $v $w $i $url $referer\n"; #, Clickref: $cref, Leadref: $lref, Saleref: $sref, Useragent: $http_useragent\n";
 
 open (lastusersfile, ">>$path");
 flock (lastusersfile, $LOCK_EX);
 print lastusersfile $cont;
 flock (lastusersfile, $LOCK_UN);
 close (lastusersfile);
}

#------------------------------------------------------------------------------

sub Load_Links ($p)
{
 $ver=$_[0];
# if ($ver==9) { $path=$env_linkdir."/test.dat"; }
# else
# {
  $path=$env_linkdir."/traders.dat";
#  print $path;
# }
 open (linkfile, "$path");
 flock (linkfile, $LOCK_EX);
 @links=<linkfile>;
 flock (linkfile, $LOCK_UN);
 close (linkfile);
}

#------------------------------------------------------------------------------

sub Set_Variables ()
{
 $buffer=$ENV{'QUERY_STRING'};
 $user_IP=$ENV{'REMOTE_ADDR'};
 $http_referer=$ENV{'HTTP_REFERER'};
 $http_useragent=$ENV{'HTTP_USER_AGENT'};
 @pairs = split (/&/, $buffer);
 foreach $pair (@pairs)
 {
  ($name, $value) = split (/=/, $pair);
  $name =~ tr/+/ /;
  $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $name =~ s/<!--(.|\n)*-->//g;
  $name =~ s/<([^>]|\n)*>//g;
  $name =~ s/'//g;
  $name =~ s/"//g;
  $name =~ s/child//g;
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $value =~ s/<!--(.|\n)*-->//g;
  $value =~ s/<([^>]|\n)*>//g;
  $value =~ s/'//g;
  $value =~ s/"//g;
  $value =~ s/child//g;
  $FORM {$name} = $value;
 }

 $w=$FORM{'w'}; # advertizer
 $v=$FORM{'v'}; # partner
 $i=$FORM{'i'}; # reseller
 $u=$FORM{'u'}; # url

# ----- получение значения текущего времени

 ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =
                  localtime (time + (3600*$timeoffset));


 $mon = "0$mon" if ($mon < 10);
 $mday = "0$mday" if ($mday < 10);

 $hour = "0$hour" if ($hour < 10);
 $min = "0$min" if ($min < 10);
 $sec = "0$sec" if ($sec < 10);
 $year = 1900 + $year;
 $timeformat="$hour$divide$min$divide$sec";
 $time=time();
 $mon++;

 $dateformat="$year"."-"."$mon"."-"."$mday";
 $timeformat="$hour:$min:$sec";

 foreach (split(/;/, $ENV{'HTTP_COOKIE'}))
 {
  ($cookie_rname, $cookie_rvalue) = split(/=/);
  $READCOOKIE {$cookie_rname} = $cookie_rvalue;
 }

 $clicked=$READCOOKIE {'clicked'};
 $leaded=$READCOOKIE {' leaded'};

 $cr=$READCOOKIE {' clickreferrer'};
 $lr=$READCOOKIE {' leadreferrer'};

 if (!$http_referer) { $http_referer="none" }
}

#------------------------------------------------------------------------------
#                                 Main Program
#------------------------------------------------------------------------------

&Set_Variables ();

$urltogo=$env_host;

&Register_Click ($u, $p, $r, $dateformat, $timeformat, $user_IP, $http_referer, $lr, $sr);
&Load_Links ($p); # returns @links
print "Content-Type: text/html\n\n";
print @links;