Test: little improvements on test page
This commit is contained in:
parent
44aeddbc5c
commit
7960a4d2d0
|
@ -75,6 +75,9 @@ td.emphase{
|
|||
background-color:#eee;
|
||||
font-weight:bold;
|
||||
}
|
||||
ul {
|
||||
list-style-type:none;
|
||||
}
|
||||
EOT
|
||||
|
||||
# Read headers
|
||||
|
@ -123,8 +126,9 @@ foreach(sort keys %$headers) {
|
|||
<td $style><tt>\$_SERVER{$headers->{$_}}</tt></td>
|
||||
<td $style><ul>";
|
||||
foreach( split( /;/, $ENV{$headers->{$_}} ) ) {
|
||||
print "<li>$_</li>";
|
||||
print "<li>$_</li>" if $_ ne " ";
|
||||
}
|
||||
print "☒" unless $ENV{$headers->{$_}};
|
||||
print "</ul></td>
|
||||
</tr>\n";
|
||||
}
|
||||
|
@ -142,7 +146,7 @@ foreach(sort keys %ENV) {
|
|||
$tmp =~ s/&/&/g;
|
||||
$tmp =~ s/>/>/g;
|
||||
$tmp =~ s/</</g;
|
||||
print "<tr><td>$_</td><td>=> $tmp</td></tr>\n";
|
||||
print "<tr><td>$_</td><td><big>☞</big> $tmp</td></tr>\n";
|
||||
}
|
||||
print "</table>\n";
|
||||
print "</div>\n";
|
||||
|
|
Loading…
Reference in New Issue
Block a user