summaryrefslogtreecommitdiffstats
path: root/app.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'app.cgi')
-rwxr-xr-xapp.cgi8
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) {