UBB.threads PHP Forum Software Community Forums UBB.threads 7 Installation and Upgrade Support Redirect scripts help needed

#!/usr/bin/perl
#
#	Copyright (C) 2005 Groupee, Inc.
#
#
# Most of this code stolen straight from the original ultimatebb.cgi
#	Thanks to Ian Spence

# Replacement ultimatebb.cgi script.
# $URL needs to be set to your ubb.threads installation.  
# $URL = "http://192.168.0.4/ubbthreads";
$URL = "http://www2.whitneyportalstore.com/forum";

# site_id only needs to be changed if you've imported multiple forums.  The importer
# will tell you what your site id needs to be changed to
$site_id = 1;

# What type of redirect shall we send?
# 0 - Don't send a 301/302 header, my webserver does this. (Enable this if 301/302 results in an ISE or blank page)
# 301 - Permanent
# 302 - Temporary
$redirect = 0;

# Search engine friendly redirects? Change to 0 to disable
$search_friendly = 1;


# You shouldn't need to edit anything below this line

SELECT * FROM ubbt_IMPORT_MAP where OLD_TOPIC_ID=5252
 
SITE_ID POST_ID OLD_TOPIC_ID  OLD_POST_ID  OLD_FORUM_ID
  1     31782    5252          1            1
  1     31783    5252          2            1
  1     31784    5252          3            1
  1     31785    5252          4            1
  1     31786    5252          5            1
  1     31787    5252          6            1
  1     31788    5252          7            1
  1     31789    5252          8            1
  1     31790    5252          9            1

# Get our arguments
%in = map{
	my @z = param($_);
	( scalar(@z) > 1 ?
		( $_ => join(",", @z) ) :
		( $_ => $z[0] )
		)
	} param();

  ($ENV{'REQUEST_METHOD'} eq "POST") and  read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
  ($ENV{'REQUEST_METHOD'} eq "GET")  and  ($input = $ENV{'QUERY_STRING'});
 
  my @pairs = split(/;/, $input);
  foreach (@pairs) {
    my ($name, $value) = split /=/;
  # Un-Webify plus signs and %-encoding
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~ s/<!--(.|\n)*-->//g;
    $value =~ s/\n/<br>/g;
    $value =~ s/\r//g;
    $in{$name} = $value;
  }