aboutsummaryrefslogtreecommitdiff
path: root/captain/web.f90
diff options
context:
space:
mode:
Diffstat (limited to 'captain/web.f90')
-rw-r--r--captain/web.f9011
1 files changed, 11 insertions, 0 deletions
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')