diff options
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() |