Add groups to default test page (#2036)
This commit is contained in:
parent
ae9740f170
commit
edc2984c00
|
@ -96,10 +96,12 @@
|
|||
"domain" : "__DNSDOMAIN__",
|
||||
"exportedHeaders" : {
|
||||
"test1.__DNSDOMAIN__" : {
|
||||
"Auth-User" : "$uid"
|
||||
"Auth-User" : "$uid",
|
||||
"Auth-Groups" : "$groups"
|
||||
},
|
||||
"test2.__DNSDOMAIN__" : {
|
||||
"Auth-User" : "$uid"
|
||||
"Auth-User" : "$uid",
|
||||
"Auth-Groups" : "$groups"
|
||||
}
|
||||
},
|
||||
"exportedVars" : {},
|
||||
|
|
|
@ -92,6 +92,10 @@ print
|
|||
print "<li>Connected user: <ul>\n";
|
||||
print "<li><tt>\$ENV{HTTP_AUTH_USER}</tt>: $ENV{HTTP_AUTH_USER}</li>\n";
|
||||
print "<li><tt>\$ENV{REMOTE_USER}</tt>: $ENV{REMOTE_USER}</li>\n";
|
||||
print "</ul><li>Groups: <ul>\n";
|
||||
for my $grp (split /; /, $ENV{HTTP_AUTH_GROUPS}) {
|
||||
print "<li>$grp</li>\n";
|
||||
}
|
||||
print "</ul></li>\n";
|
||||
print "</ul>\n";
|
||||
print
|
||||
|
|
Loading…
Reference in New Issue