#!perl

<?
sub box_init
{
	?>
	<table style="background-color:#000080" width="100%">
		<tr>
		<td width="100%">
		<table style="background-color:#FfFfFf;font-size:12" width="100%">
		<tr><td>
	<?
}
sub box_end
{
	($title)=@_;
	
	?>
		</td></tr>
		</table>
	</td>
	<td style="color:white">
	<tt><?=$title?></tt>
	</td>
	</tr></table>
	<br>
	<?
}
?>
<html>
<head> <title>Environment Variables of Screws </title></head>
<body style="font-family:Arial">
	<div style="background-color:#000080;color:white"> 
	<br>
	<h2>&nbsp;&nbsp;Environment screws variables</h2>
	<br>
	</div>
<br>

<? box_init(); ?>
   <b>VERSION</b>:    <?=$ENV{VERSION}?><br>
	<b>IO</b>:         <?=$ENV{IO}?><br>
	<b>THREAD_ID</b>:  <?=$ENV{THREAD_ID}?><br>
	<b>IPV6</b>:       <?=$ENV{IPV6}?><br>
	<b>LOGS</b>:       <?=$ENV{LOGS}?>
<? box_end("server"); ?>

<? box_init(); ?>
   <b>HOSTNAME</b>:   <?=$ENV{HOSTNAME}?><br>
	<b>SYSNAME</b>:    <?=$ENV{SYSNAME}?><br>
	<b>SYSVERSION</b>: <?=$ENV{SYSVERSION}?><br>
	<b>RELEASE</b>:    <?=$ENV{RELEASE}?><br>
	<b>MACHINE</b>:    <?=$ENV{MACHINE}?><br>
	<b>UNAME</b>:      <?=$ENV{UNAME}?>
<? box_end("system"); ?>

<? box_init(); ?>
	<b>HTTP</b>:       <?=$ENV{HTTP}?><br>
	<b>METHOD</b>:     <?=$ENV{METHOD}?><br>
   <b>HOST</b>:       <?=$ENV{HOST}?><br>
	<b>FILE</b>:       <?=$ENV{FILE}?><br>
	<b>FILETYPE</b>:   <?=$ENV{FILETYPE}?><br>
   <b>ORIG_FILE</b>:  <?=$ENV{ORIG_FILE}?><br>
	<b>DIR</b>:        <?=$ENV{DIR}?><br>
	<b>REFERER</b>:    <?=$ENV{REFERER}?><br>
	<b>MIME</b>:       <?=$ENV{MIME}?><br>
	<b>RANGE</b>:      <?=$ENV{RANGE}?><br>
<? box_end("protocol"); ?>

<? box_init(); ?>
	<b>USERAGENT</b>   <?=$ENV{USERAGENT}?><br>
	<b>CONNECTION</b>: <?=$ENV{CONNECTION}?><br>
	<b>ACCEPT</b>:     <?=$ENV{ACCEPT}?><br>
	<b>ACCEPT_LANGUAGE</b>: <?=$ENV{ACCEPT_LANGUAGE}?><br>
	<b>ACCEPT_ENCODING</b>: <?=$ENV{ACCEPT_ENCODING}?><br>
<? box_end("client"); ?>

<? box_init(); ?>
	<b>LISTEN_ADDR</b>:  <?=$ENV{LISTEN_ADDR}?><br>
	<b>LISTEN_PORT</b>:  <?=$ENV{LISTEN_PORT}?><br>
	<b>LISTEN_HOST</b>:  <?=$ENV{LISTEN_HOST}?><br>

	<b>REMOTE_PORT</b>:  <?=$ENV{REMOTE_PORT}?><br>
	<b>REMOTE_ADDR</b>:  <?=$ENV{REMOTE_ADDR}?><br>
	<b>REMOTE_HOST</b>:  <?=$ENV{REMOTE_HOST}?><br>

	<b>FAMILY</b>:       <?=$ENV{FAMILY}?><br>
	<b>TCPWINSIZE</b>:   <?=$ENV{TCPWINSIZE}?><br>
<? box_end("connection"); ?>

<? box_init(); ?>
   <b>ARGS_ENABLED</b>: <?=$ENV{ARGS_ENABLED}?><i>(Deprecated)</i><br>
	<b>ARGS</b>: <?=$ENV{ARGS}?><br>
	<b>ARGC</b>: <?=$ENV{ARGC}?><br>
	<b>ARGV</b>: <?=$ENV{ARGV}?><br>
   <?
	foreach $arg (split(' ',$ENV{ARGV}))
		{	
		print("<b>$arg</b>: $ENV{$arg}<br>");
		}
	?>
<? box_end("arguments"); ?>
<div align="right" style="background-color:#000080;color:#FfFfFf">
<tt>screws <?=$ENV{VERSION}?></tt>

</div>
</body>
</html>

