diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-04-27 12:48:26 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-04-27 12:48:26 -0400 |
commit | 6ae21577802462f38d98dd0e5415166008b1b13f (patch) | |
tree | 8d8606f15fe24af885b67d0cf30279c64bcd9e3e /captain/web.f90 | |
parent | e5a2850b6bb9887b241316be24b3f7047cef6ea3 (diff) | |
download | levitating-6ae21577802462f38d98dd0e5415166008b1b13f.tar.gz levitating-6ae21577802462f38d98dd0e5415166008b1b13f.zip |
Started work on user-facing user stuff for web interface.
Diffstat (limited to 'captain/web.f90')
-rw-r--r-- | captain/web.f90 | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/captain/web.f90 b/captain/web.f90 index f66250c..09d687b 100644 --- a/captain/web.f90 +++ b/captain/web.f90 @@ -899,7 +899,7 @@ contains use server_response, only:request, response use http, only: HTTP_CODE_SUCCESS, HTTP_CODE_NOTFOUND use request_utils, only: get_job_page_title, handle_instruction_command - use captain_db, only: scan_instructions_for_db + use captain_db, only: scan_instructions_for_db, get_session_auth_db, get_session_username_db use utilities, only: build_date implicit none @@ -912,7 +912,7 @@ contains character(64)::first character(len=:), pointer::contents - character(128)::job_page_title + character(128)::job_page_title, username integer::i @@ -1029,6 +1029,20 @@ contains call page%assign('project', project) call page%assign('base_url', req%server) + if(associated(req%token)) then + if(get_session_auth_db(req%token) > 0) then + call page%assign('user_link_page', "profile") + call get_session_username_db(req%token, username) + call page%assign('user_link_text', trim(username)) + else + call page%assign('user_link_page', "login") + call page%assign('user_link_text', "Login") + end if + else + call page%assign('user_link_page', "login") + call page%assign('user_link_text', "Login") + end if + call write_log("Rendering page for "//req%location) call page%render() |