#!/usr/bin/perl --
$qstr = $ENV{'QUERY_STRING'};
$tfile = "/tmp/rats.txt";
&check_query;
&massage_agent;
$referer = "&referer=$referer";


if($agentid ne "22592" && $agentid ne "22592:" && $agentid ne "32723:" && $agentid ne "32723")
   {
   $redirecturl = "http://198.65.148.162/index2.php?id=$agentid$referer";
   open(LEADFILE, ">>$tfile");
   print LEADFILE "$redirecturl";
   print LEADFILE "\n";
   close(LEADFILE);
   print("location:$redirecturl\n\n");
   exit(0);
   }
else
   {
   print "Content-type: text/html \n\n";
   print "This link has been deactivated due to a violation of our Anti-Spam policy.  We apologize for any inconvenience. \n";
   exit(0);
   }

exit(0);

sub check_query 
   {  
   if($qstr =~ /\|/) 
      {
      @qParts  = split(/\|/, $qstr);
      $agentid = $qParts[0]; 
      $referer = $qParts[1]; 
      }
   else 
      {
      $agentid = $ARGV[0];
      $referer = $ENV{HTTP_REFERER};
      };
   }

sub massage_agent 
   {
   $agentid =~ s/\\//g;
   $agentid =~ s/\s//g;
   $agentid =~ s/id://g;
   $agentid =~ s/[^0-9A-Za-z]//g;
   if ($agentid eq "") {$agentid = "00001";};
   if ($agentid =~ /\:/)
      {  
      @agtParts = split(/\:/, $agentid); 
      $agentid = $agtParts[0]; 
      $numparts = @agtParts; 
      if ($numparts > 1)
         {  
         $subagt = $agtParts[1]; 
         for ($i=2; $i<$numparts; $i++)
            {  
            $subagt .= ":".$agtParts[$i]; 
            };
         };
      }
   $agentid .= ":" . $subagt;
   }