Patch by holger@holger.om.org (Holger Schurig) -- one more fancy header that was...

diff --git a/CGI.pl b/CGI.pl
index 328b4d9ea5cca2aec7702ff642ff697cd432b026..2b137168581d721ea92e0f909097c807b26ac4e5 100644 (file)
--- a/CGI.pl
+++ b/CGI.pl
@@ -396,7 +396,7 @@ sub confirm_login {
        my $enteredcryptpwd = crypt($enteredpwd, substr($realcryptpwd, 0, 2));
         if ($realcryptpwd eq "" || $enteredcryptpwd ne $realcryptpwd) {
             print "Content-type: text/html\n\n";
-            print "<H1>Login failed.</H1>\n";
+           PutHeader("Login failed");
             print "The username or password you entered is not valid.\n";
             print "Please click <b>Back</b> and try again.\n";
             exit;