33 lines
662 B
Perl
33 lines
662 B
Perl
#!/usr/bin/perl
|
|
|
|
print <<HTML;
|
|
Content-type: text/html
|
|
|
|
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
|
<html>
|
|
<head>
|
|
<title></title>
|
|
<meta http-equiv="Content-Type" content="text/html">
|
|
<link rel="stylesheet" type="text/css" href="../../css/style.css">
|
|
</head>
|
|
<body>
|
|
<table cellspacing="0" cellpadding="0" border="0">
|
|
<tr class="subhead" align="Left"><th>Name</th><th>Value</th></tr>
|
|
HTML
|
|
|
|
my $class;
|
|
|
|
foreach (sort keys %ENV) {
|
|
next unless /^HTTP_|^REQUEST_/;
|
|
$class = ($class ne 'normal')? 'normal': 'alt';
|
|
print <<HTML;
|
|
<tr class="$class"><td valign="top">$_</td><td>$ENV{$_}</td></tr>
|
|
HTML
|
|
}
|
|
|
|
print <<HTML;
|
|
</table>
|
|
</body>
|
|
</html>
|
|
HTML
|