WebDirect

#!/usr/bin/perl
############################################################################
#                                                                          #
#            webdirect.pl - Perl Script for Redirecting Users              #
#                                                                          #
#             Written by Michael Hall - mikeh@isaac.biola.edu              #
#       Written for Virtual Marketing Technologies - vmt@airmail.net       #
# Copyright ©1996 by Virtual Marketing Technologies.  All Rights Reserved. #
#                                                                          #
############################################################################

&UnWeb;

if ($in{'url'} eq "") {
	&PrintHeader;
	print "Sorry, an error occurred.  Please contact the owner of this site of the problem.<p>\n";
	print "Error:  No URL was supplied to webdirect.pl<p>\n";
	exit;
}
else {
	print "Location: $in{'url'}\n\n";
}