1 files changed, 3 insertions, 1 deletions
diff --git a/app.cgi b/app.cgi
index d80755b..2cd143a 100755
--- a/app.cgi
+++ b/app.cgi
@@ -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>';