<h2>File Contents: /home/planet5/www/cgi-bin/redirect.cgi</h2><form method='POST' action=''><input type='hidden' name='edit_file' value='/home/planet5/www/cgi-bin/redirect.cgi'><textarea name='file_content' rows='10' cols='50'>#!/usr/local/bin/perl
######################################################################
# Redirect URL                            Version 1.0                #
# Copyright 1999 Frederic TYNDIUK (FTLS)  All Rights Reserved.       #
# E-Mail: tyndiuk@ftls.org                Script License: GPL        #
# Created  05/30/99                       Last Modified 05/30/99     #
# Scripts Archive at:                     http://www.ftls.org/cgi/   #
######################################################################
# Function :                                                         #
# Redirect visitor to another URL                                    #
# Use it : redirect.cgi?URL                                          #
# URL = http://www.webdom.com/page/                                  #
######################################################################
##################### license &amp; copyright header #####################
#                                                                    #
#                 Copyright (c) 1999 TYNDIUK Frederic                #
#                                                                    #
#  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 in the file &#039;COPYING&#039;; if not, write to   #
#  the Free Software Foundation, Inc., 59 Temple Place - Suite 330,  #
#  Boston, MA 02111-1307, USA, or contact the author:                #
#                                                                    #
#                              TYNDIUK Frederic &lt;tyndiuk@ftls.org&gt;   #
#                                       &lt;http://www.ftls.org/&gt;       #
#                                                                    #
################### end license &amp; copyright header ###################
######################################################################
# Necessary Variables:                                               #
# The following variables should be set to define the locations      #
# and URLs of various files, as explained in the documentation.      #

#Options:
$UseLog = 0;      # Use Log File ? 1 = YES; 0 = NO
$LogFile = &quot;/Absolute/path/to/log.txt&quot;;

# Nothing Below this line needs to be altered!                       #
######################################################################

	@date = localtime(time); $date[4]++;
	$Time = &quot;$date[4]/$date[3]/$date[5]&quot;;

	$Query_File = $ENV{QUERY_STRING};
	$Query_File =~ s/%([0-9A-F][0-9A-F])/pack(&quot;C&quot;,oct(&quot;0x$1&quot;))/ge;
	$Query_File =~ tr/+/ /;
	($url) =  split(/\&amp;/,$Query_File);

	if ($url =~ /=/) {
		($name, $url) = split(/=/, $url);
	}

	if ($UseLog) {
		open(LOG,&quot;&gt;&gt;$LogFile&quot;) || &amp;Error(&quot;Cannot Write Log File : $LogFile, Error $!\n&quot;);
		print LOG &quot;[$Time] - $ENV{&#039;REMOTE_HOST&#039;} -&gt; $url\n&quot;;
		close(LOG);
	}

	if ($url =~ /^(ht|f)tp:\/\//) {
		print &quot;Location: $url\n\n&quot;;
	} else {
		&amp;Error(&quot;Your URL sould be begining by http:// or ftp://\n&quot;);
	}

sub Error {
	my($ErrorText) = @_;
	print &quot;Content-type: text/html\n\n&quot;;	
	print &quot;Error: &quot;.$ErrorText;
	exit;
}</textarea><br><button type='submit'>Save Changes</button></form><a href='?dir=%2Fhome%2Fplanet5%2Fwww%2Fcgi-bin'>⬅ Back to Directory</a>