From 642e0c9a2dffe35d17bf8d5932a788adf9aaffbe Mon Sep 17 00:00:00 2001
From: Jan Pazdziora <jpazdziora@redhat.com>
Date: Wed, 8 Jan 2014 02:05:11 -0500
Subject: Tweak code to better show the logic later.

---
 app.cgi | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'app.cgi')

diff --git a/app.cgi b/app.cgi
index 6ee3207..844e3cd 100755
--- a/app.cgi
+++ b/app.cgi
@@ -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
-- 
cgit