#!/usr/bin/perl
#redirect.cgi

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

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;
  $FORM {$name} = $value;
 }

 $qq=$FORM{'qq'}; # advertizer
 $p=$FORM{'p'}; # partner
 $r=$FORM{'r'}; # reseller

 @queries=split (/ /, $qq);
 $q1=@queries[0];

 if ($q1 =~ 'ussian') { $q1=$qq; }
 if ($q1 =~ 'Fat') { $q1="bbw"; }

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

 ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =
                  localtime (time + (3600*$timeoffset));
 $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";

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

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

&Set_Variables ();

$urltogo=$env_host;

print "Location: http://www.goldenpix.com/cgi-bin/out.cgi?$buffer\n\n";