diff options
-rwxr-xr-x | app.cgi | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -60,7 +60,9 @@ sub login { my $login = $q->param('login'); my $password = $q->param('password'); my $error = ''; - if (defined $login) { + if (defined $ENV{REMOTE_USER}) { + $login = $ENV{REMOTE_USER}; + } elsif (defined $login) { my $re = qr/^[-a-zA-Z0-9_.]+$/; if ($login eq '' or not $login =~ $re) { $error = '<p>Login has to be nonempty, full characters</p>'; |