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