#!/usr/local/bin/perl
##################################################################################
# URL Jumper
# Copyright 1996 Techno Trade  http://www.technotrade.com
# Written By : Sammy Afifi   sammy@technotrade.com
# Date Last Modified : May 31, 1996
##################################################################################
#
# This script is free of charge.
#
##################################################################################


# Read in all the variables set by the form
  &parse_form;

  $gotourl = $FORM{'url'};

  print "Location: $gotourl\n\n";


sub parse_form {

   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;

      $FORM{$name} = $value;
   }
}