#!/usr/bin/perl
#  ^ 
# / \ 
#  |   Modify the line the arrow is pointing to, to the correct 
#  |   location of Perl v5 or better. 
#Uninet###################################################################### 
#   w  w  w  .  u  n  i  n  e  t  s  o  l  u  t  i  o  n  s  .  c  o   m    #
# UNINET PERL COMPANY(TM) PRESENTS                                          # 
# Go2It! 1.0 SR1 (1.1)                                                      # 
# Graphical Web Site Counter and Statistics Program                         #
# ------------------------------------------------------------------------- #
# (C)1997-99 Uninet Communications Co., All Rights Reserved.                #
#                                                                           #
# This program is free software; you can redistribute it and/or             #
# modify it under the terms of the GNU General Public License               #
# as published by the Free Software Foundation; either version 2            #
# of the License, or (at your option) any later version.                    #
#                                                                           #
# This program is distributed in the hope that it will be useful,           #
# but WITHOUT ANY WARRANTY; without even the implied warranty of            #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the             #
# GNU General Public License for more details.                              # 
#                                                                           #
# You should have received a copy of the GNU General Public License         #
# along with this program; if not, write to the                             #
#                Free Software Foundation, Inc.                             #
#                59 Temple Place - Suite 330                                #
#                Boston, MA  02111-1307, USA.                               #
#                                                                           #
# -->A full copy of the GNU General Public License is included in gpl.txt   #
# ------------------------------------------------------------------------- #
# Need Support? We offer FREE technical support!                            #
# Email us at support@uninetsolutions.com for quick, free support today!    # 
# ------------------------------------------------------------------------- # 
# Modification History:                                                     # 
# 1.0: 11/11/1997   Go2It! released.                                        # 
# SR1: 3/8/1999     Code cleaned up.                                        # 
#######################################################################Uninet

 #No settings needed.      
 
 read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

 @pairs = split(/&/, $buffer);
 
 foreach $pair (@pairs)
 {
     ($name,
$value) = split(/=/, $pair);
     $value =~ tr/+/ /;
     $value =~
s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
 
    $value =~ s/~!/ ~!/g; 


    $FORM{$name} = $value;
}


#READ DATA.
 $url = $FORM{'goto'};  

 print ("Location: $url\n\n");  

