#!perl
#-----------------------------------------------------------------------------
#
# Relocator
#
# Written: 2001/12/12 Dingus
# Modified: 2002/07/26 Dingus
#
# Redirects you to another port on the same server. Either as a redirect or
# as an embedded frame. You can call it in 2 ways: either call direct
# relo.cgi?p=PPP&m=C&t=TTT
# where PPP is the port for the redirect
# C is either an R for redirect or an F for frame
# TTT is a title used to give the frame mode a title. It is ignored in R mode
# or use as the script for a service.xml script
# e.g. a SWAT service redirector would look like
#
"; $msg =~ s/ (of )*\Q$0//g; print "$msgEmail me this page"; return unless ($ENV{'REMOTE_ADDR'} eq "127.0.0.1"); print '
Environment Variables:
'; foreach (sort keys %ENV) { print "$_: [$ENV{$_}]\n"; } print "