<h2>Dump $_ENV with a ForEach into a Table</h2>
<script language="php">
print "<table border=1>";
foreach ($_ENV as $k => $v) {
 print "<tr>";
 #print "\$_='$_'\n";
 print "<td>$k{$_}</td>\n";
 print "<td>$v{$_}</td>\n";
 print "</td>";
 print "</tr>";
} 
print "</table>";
</script>
<h2>Dump $_ENV with print statements</h2>
<script language="php">
echo "xxxxxxxxxxxx<br>";
#print "$_ENV['HTTP_X_FORWARDED_FOR']"; 
echo "xxxxxxxxxxxxxxxxxx<br>";

#$logvar=openlog ("log message", LOG_NDELAY , LOG_USER );
#echo "logvar=$logvar<br>";

$F=fopen("log_file.txt","a");
$logout="";
$seperator="";
print "opening file [\$F=$F]<br>";
foreach ($_ENV as $k => $v) {
 if ($k == 'REMOTE_ADDR' ||
     $k == 'REMOTE_PORT' ||
     $k == 'HTTP_REFERER' ||
     $k == 'HTTP_USER_AGENT' ||
     $k == 'HTTP_VIA' ||
     $k == 'HTTP_X_FORWARDED_FOR' ||
     $k == 'SERVER_ADDR' ||
     $k == 'REQUEST_URI' ||
     $k == 'SERVER_ADDR' ||
     $k == 'HTTP_X_FORWARDED_FOR' ) {
    print "$k $v <br>\n";
    $logout.=$seperator.$k."=".$v;
    $seperator=" ";
 }
} 
#
# dump the data to the log file
#
fwrite ( $F, "$logout\n" );
$rc=fclose($F);
print "<p>closing file [\$F $F] rc=$rc<br>";


#
# now try to do it with $_ENV

echo "<hr>";
echo "SERVER_ADDR=${SERVER_ADDR}<br>";
echo "REMOTE_ADDR=${REMOTE_ADDR}<br>";
echo "REMOTE_PORT=${REMOTE_PORT}<br>";
echo "HTTP_X_FORWARDED_FOR=${HTTP_X_FORWARDED_FOR}<br>";
echo "HTTP_REFERER=${HTTP_REFERER}<br>";
echo "HTTP_USER_AGENT=${HTTP_USER_AGENT}<br>";
echo "HTTP_VIA=${HTTP_VIA}<br>";
echo "REQUEST_URI=${REQUEST_URI}<br>";
echo "SERVER_ADDR=${SERVER_ADDR}<br>";
echo "<hr>";
$logout="";
$logout.=" SERVER_ADDR=${SERVER_ADDR} ";
$logout.=" REMOTE_ADDR=${REMOTE_ADDR} ";
$logout.=" REMOTE_PORT=${REMOTE_PORT} ";
$logout.=" HTTP_X_FORWARDED_FOR=${HTTP_X_FORWARDED_FOR} ";
$logout.=" HTTP_REFERER=${HTTP_REFERER} ";
$logout.=" HTTP_USER_AGENT=${HTTP_USER_AGENT} ";
$logout.=" HTTP_VIA=${HTTP_VIA} ";
$logout.=" REQUEST_URI=${REQUEST_URI} ";
$logout.=" SERVER_ADDR=${SERVER_ADDR} ";
echo "logout=$logout<br>";
$F=fopen("log_file.txt","a");
print "opening file [\$F=$F]<br>";
fwrite ( $F, "log $logout\n" );
$rc=fclose($F);
print "<p>closing file [\$F $F] rc=$rc<br>";



</script>