For REMOTE_USER, process other attributes as well, provided by mod_lookup_identity.additional-attributes

1 files changed, 8 insertions, 0 deletions

diff --git a/app.cgi b/app.cgi
index d97ed8e..badc13a 100755
--- a/app.cgi
+++ b/app.cgi
@@ -62,6 +62,14 @@ sub login {
 	my $error = '';
 	if (defined $ENV{REMOTE_USER}) {
 		$login = $ENV{REMOTE_USER};
+		if (defined $ENV{REMOTE_USER_EMAIL}) {
+			$login .= ": $ENV{REMOTE_USER_EMAIL}";
+		}
+		my $n = join ' ', grep defined $_, map $ENV{$_},
+			'REMOTE_USER_FIRSTNAME', 'REMOTE_USER_LASTNAME';
+		if ($n ne '') {
+			$login = "$n ($login)";
+		}
 	} elsif (defined $login) {
 		my $re = qr/^[-a-zA-Z0-9_.]+$/;
 		if ($login eq '' or not $login =~ $re) {