#!/usr/bin/perl
###########################
##  AutoRank PHP v1.0.x  ##
######################################################################################
##  rankem.cgi - script to forward from old AutoRank Pro links to the new PHP link  ##
######################################################################################

my $IURL = 'http://www.topsmutlinks.com/pantyupskirts/php/in.php';       ## The full URL to your in.php script

##########################################################################
##                        DONE EDITING THIS FILE                        ##
##########################################################################

my %QRY;

parseget();

print "Location: $IURL?id=$QRY{'id'}\n\n";

sub parseget {
  my @pairs = split(/&/, $ENV{'QUERY_STRING'});
  my ($name, $value);
  
  for (@pairs) {
    ($name, $value) = split(/=/, $_);
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $QRY{$name} = $value;
  }
}