From 936a7552c7a237133f0ea888d337014be524476e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Cl=C3=A9ment=20Oudot?= <clement@oodo.net>
Date: Thu, 11 Mar 2010 10:44:48 +0000
Subject: [PATCH] Test: split multi-valued headers

---
 build/lemonldap-ng/_example/test/index.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/build/lemonldap-ng/_example/test/index.pl b/build/lemonldap-ng/_example/test/index.pl
index 59319d1f2..f96ed760e 100755
--- a/build/lemonldap-ng/_example/test/index.pl
+++ b/build/lemonldap-ng/_example/test/index.pl
@@ -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