diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-07 09:42:16 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-07 09:42:16 -0400 |
| commit | 0f31824a5e4969d56d88678e05274163be3d8b77 (patch) | |
| tree | 1d2a7b5f84d1413166509fb677f3d770b2d646ef /captain/requtils.f90 | |
| parent | e7848c2d61bb8fb13b4620ba0c8eaf20a1965ffa (diff) | |
| download | levitating-0f31824a5e4969d56d88678e05274163be3d8b77.tar.gz levitating-0f31824a5e4969d56d88678e05274163be3d8b77.zip | |
Instructions and players now displayed via the CGI interface. Added 'page' member to the request derived type.
Diffstat (limited to 'captain/requtils.f90')
| -rw-r--r-- | captain/requtils.f90 | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/captain/requtils.f90 b/captain/requtils.f90 index b28500e..7010bcb 100644 --- a/captain/requtils.f90 +++ b/captain/requtils.f90 @@ -186,13 +186,14 @@ contains end function request_static - function render_jobs_links(jobs, startindex, stopindex, gemini_mode) result(res) + function render_jobs_links(jobs, startindex, stopindex, gemini_mode, link_prefix) result(res) use captain_db implicit none type(job), dimension(:), pointer, intent(in)::jobs integer, intent(in), optional::startindex, stopindex logical, intent(in)::gemini_mode + character(*), intent(in), optional::link_prefix character(len=:), pointer::res integer::nsize, i, first, last @@ -200,6 +201,13 @@ contains character(len=(2*PLAYER_NAME_LENGTH + 64))::link character(PLAYER_NAME_LENGTH)::player, instruction character(1)::nl = new_line(' ') + character(64)::int_link_prefix + + if(present(link_prefix)) then + int_link_prefix = link_prefix + else + int_link_prefix = " " + end if if(.not. associated(jobs)) then allocate(character(len=32)::res) @@ -233,7 +241,8 @@ contains write(int_text, '(I8)') jobs(i)%id if(gemini_mode) then - link = "=> jobs/"//trim(adjustl(int_text))//".gmi "// & + link = "=> "//trim(int_link_prefix)//"jobs/"// & + trim(adjustl(int_text))//".gmi "// & trim(get_status_utf8(jobs(i)%status))//" Job "// & trim(adjustl(int_text))//" - "//trim(instruction) @@ -241,7 +250,8 @@ contains else res = trim(res)//nl//' <li><div class="job_result_listitem">' - link = ' <p><strong><a href="jobs/'//trim(adjustl(int_text))//'.html" >'// & + link = ' <p><strong><a href="'//trim(int_link_prefix)//'jobs/'// & + trim(adjustl(int_text))//'.html" >'// & trim(get_status_utf8(jobs(i)%status))//" Job "// & trim(adjustl(int_text))//" - "//trim(instruction)// & '</a></strong></p>' |