aboutsummaryrefslogtreecommitdiff
path: root/captain/external.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2021-05-06 16:00:59 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2021-05-06 16:00:59 -0400
commit55870299e41492ee8ab6c50116061f48f06fcd7d (patch)
tree046ea3e9d4dffe186dff78c3b5fb7d87aca9d08c /captain/external.f90
parenta67622fdc0dbe7f6be04667663f58b31fbf30a8d (diff)
downloadlevitating-55870299e41492ee8ab6c50116061f48f06fcd7d.tar.gz
levitating-55870299e41492ee8ab6c50116061f48f06fcd7d.zip
Individual job results can now be displayed via CGI
Diffstat (limited to 'captain/external.f90')
-rw-r--r--captain/external.f9027
1 files changed, 1 insertions, 26 deletions
diff --git a/captain/external.f90 b/captain/external.f90
index 49331ba..8ca5c97 100644
--- a/captain/external.f90
+++ b/captain/external.f90
@@ -142,32 +142,6 @@ contains
end function generate_one_job_gemini
-
- subroutine get_job_page_title(req, title)
- use captain_db
- use server_response
- implicit none
-
- type(request), intent(in)::req
- character(*), intent(out)::title
-
- integer::job_id, i
- character(32)::job_text
- character(PLAYER_NAME_LENGTH)::instruction_name
-
- ! All this to get the job id
- call req%last_component(job_text)
- i = index(job_text, ".")
- job_text(i:len(job_text)) = " "
- read(job_text, '(I8)') job_id
-
- ! Request instruction name
- i = get_job_instruction(job_id)
- call get_instruction_name(i, instruction_name)
-
- title = "Job "//trim(job_text)//" - "//trim(instruction_name)
-
- end subroutine get_job_page_title
function generate_releases_gemini(req) result(res)
use utilities
@@ -606,6 +580,7 @@ contains
use config, only: template_filepath, project
use logging
use server_response
+ use request_utils, only: get_job_page_title
implicit none
class(request), intent(in)::req