diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-04-29 11:13:13 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-04-29 11:13:13 -0400 |
| commit | 8c401f9748069eb052f5ac4f2eee1761b1f67afd (patch) | |
| tree | 71c4cc2a585460b791a672a3a53b8e51e7b3e598 /captain/web.f90 | |
| parent | b558fd94527e6a3f359c3ca766eeabaf0c7a8a57 (diff) | |
| download | levitating-8c401f9748069eb052f5ac4f2eee1761b1f67afd.tar.gz levitating-8c401f9748069eb052f5ac4f2eee1761b1f67afd.zip | |
Fixed login to use the proper password checking function.
Diffstat (limited to 'captain/web.f90')
| -rw-r--r-- | captain/web.f90 | 11 |
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') |