diff options
-rwxr-xr-x | app.cgi | 15 |
1 files changed, 8 insertions, 7 deletions
@@ -68,15 +68,16 @@ sub login { $error = '<p>Password has to be nonempty</p>'; } elsif ($password ne reverse($login)) { $error = '<p>Password has to be reverse login</p>'; - } else { - print "Set-Cookie: $AUTH_COOKIE=ok:$login; path=$ENV{SCRIPT_NAME}\n"; - print "Refresh: 3; URL=$ENV{SCRIPT_NAME}\n"; - $title = 'Logged in'; - $body = 'You will be redirected to the ' - . qq!<a href="$ENV{SCRIPT_NAME}">home page</a>!; - return; } } + if (defined $login and $error eq '') { + print "Set-Cookie: $AUTH_COOKIE=ok:$login; path=$ENV{SCRIPT_NAME}\n"; + print "Refresh: 3; URL=$ENV{SCRIPT_NAME}\n"; + $title = 'Logged in'; + $body = 'You will be redirected to the ' + . qq!<a href="$ENV{SCRIPT_NAME}">home page</a>!; + return; + } no warnings 'uninitialized'; $body = <<"EOS"; $error |