dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Test: split multi-valued headers

Browse Source
This commit is contained in:
Clément Oudot 2010-03-11 10:44:48 +00:00
parent 3737e3f67f
commit 936a7552c7
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
build/lemonldap-ng/_example/test/index.pl
View File

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