#!/usr/bin/perl
#
# Test script for CGI
#
# If you are able to read this message, CGI is operating correctly on your web space. 
#
#	RCN does not provide technical support for CGI.  We can and will assure that CGI
# is functioning properly. If there are complications due to end-user coding errors, RCN
# will not assist in debugging the code. If you feel the errors you receive when running
# a CGI script are due to server performance, please contact RCN Commercial Customer
# Service at 1-800-746-4726, or email to: [email protected].
#
# Our RCN NT hosted customers may refer to the following site for more advanced help with CGI:
#  http://nt-hosting.rcn.com/faq.htm
# Our RCN customers on our older Unix servers may refer to:
#  http://www.erols.com/erols/support/cgi/
#
# Description:
#	This script tests the ability to:
#  * Use environmental variables
#  * Use standard Perl functions
#  * Read from a text file on the server (the script itself)
#
print "Content-type: text/plain\n\n";
print "Your IP: $ENV{'REMOTE_ADDR'}\n";
print "URL: http://$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}\n";
print "Current Time: ". localtime();
print "\nBelow is the code for this script, read straight from the script itself.\n\n";

if (open (FILE,'./test-cgi.cgi'))
 { print map {$_} <FILE>;
   close(FILE);
 }
else
 { print "Could not open file test-cgi.cgi: $!"; }

exit 0;