#!/usr/local/bin/perl -w

use CGI ':standard'; 
$q = new CGI;                                 # create new CGI object

use Time::localtime;
$lt = localtime();


$rhost  = $ENV{'REMOTE_HOST'};
$radd   = $ENV{'REMOTE_ADDR'};
$ruser  = $ENV{'REMOTE_USER'};


$header = "reflectorHead.pl";
$body   = "reflectorBody.pl";


require $header;
require $body;



if ($rhost ne "")
{
	print "Connecting from <i>" . $rhost . "</i> at ";
}

print $lt->hour . ":" . $lt->min . ":" . $lt->sec . ".<br>\n";

print "<br /> Your form contains the following fields/values:<br /><br />\n";
#print "<table border=\"0\" width=\"500\" bgcolor=\"lightblue\">\n";
#print "<tr align=\"center\" valign=\"top\" bgcolor=\"yellow\">\n\t";
#print "<td width=\"50%\"><b>Field Name</b></td>\n\t";
#print "<td width=\"50%\"><b>Value</b></td>\n\t</tr>\n\t";

#@names = $q->param ;
#foreach $name (@names)
#{
#    $value = $q->param($name);
#    next if (lc($name) eq "submit"); 
#    print "<tr align=\"center\" valign=\"top\"><td>$name</td><td>$value</td></tr>\n\t";
#}
#print "</table>\n<br clear=\"left\">\n";

print $q->Dump();

print $q->end_html;                  # end the HTML