Test: split multi-valued headers
This commit is contained in:
parent
3737e3f67f
commit
936a7552c7
|
@ -115,13 +115,18 @@ print "<p>To know who is connected in your applications, you can read HTTP heade
|
||||||
print "<table>\n";
|
print "<table>\n";
|
||||||
print "<tr><th>Header</th><th>Perl CGI</th><th>PHP script</th><th>Value</th></tr>\n";
|
print "<tr><th>Header</th><th>Perl CGI</th><th>PHP script</th><th>Value</th></tr>\n";
|
||||||
foreach(sort keys %$headers) {
|
foreach(sort keys %$headers) {
|
||||||
|
next if $_ =~ /(Accept|Cache|User-Agent|Connection|Keep-Alive)/i;
|
||||||
$style = $_ eq 'Auth-User' ? 'class="emphase"' : '';
|
$style = $_ eq 'Auth-User' ? 'class="emphase"' : '';
|
||||||
print "<tr>
|
print "<tr>
|
||||||
<td $style>$_</td>
|
<td $style>$_</td>
|
||||||
<td $style><tt>\$ENV{$headers->{$_}}</tt></td>
|
<td $style><tt>\$ENV{$headers->{$_}}</tt></td>
|
||||||
<td $style><tt>\$_SERVER{$headers->{$_}}</tt></td>
|
<td $style><tt>\$_SERVER{$headers->{$_}}</tt></td>
|
||||||
<td $style>$ENV{$headers->{$_}}</td>
|
<td $style><ul>";
|
||||||
</tr>\n"
|
foreach( split( /;/, $ENV{$headers->{$_}} ) ) {
|
||||||
|
print "<li>$_</li>";
|
||||||
|
}
|
||||||
|
print "</ul></td>
|
||||||
|
</tr>\n";
|
||||||
}
|
}
|
||||||
print "</table>\n";
|
print "</table>\n";
|
||||||
print "<p class=\"note\">Note that Lemonldap::NG cookie is hidden. So that application developpers can
|
print "<p class=\"note\">Note that Lemonldap::NG cookie is hidden. So that application developpers can
|
||||||
|
|
Loading…
Reference in New Issue
Block a user