From 8c401f9748069eb052f5ac4f2eee1761b1f67afd Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Fri, 29 Apr 2022 11:13:13 -0400
Subject: Fixed login to use the proper password checking function.

---
 captain/web.f90 | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'captain/web.f90')

diff --git a/captain/web.f90 b/captain/web.f90
index c3841c0..898551c 100644
--- a/captain/web.f90
+++ b/captain/web.f90
@@ -963,6 +963,10 @@ contains
         else if(trim(req%location) == "/about.html") then
         
             template_to_use = "about.html"
+        
+        else if(trim(req%location) == "/login.html") then
+        
+            template_to_use = "login.html"
             
         else
         
@@ -1056,6 +1060,13 @@ contains
             contents => generate_one_group_html(req)
             call page%assign('contents', contents)
         
+        else if(trim(first) == "login.html") then
+        
+            call page%assign('title', 'Login')
+            if(associated(req%q%get_value("failed"))) then
+                call page%assign('login_message', "Login Failed.")
+            end if
+            
         else
         
             call page%assign('title', 'Not Found')
-- 
cgit v1.2.3