diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-24 12:21:49 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-24 12:21:49 -0400 |
| commit | ce036a72ca597a9dd3b19fb1f9871c01376a5361 (patch) | |
| tree | afefa2fcac64ec2bc94fbc3e5cbd47e61024f30c /captain/external.f90 | |
| parent | 816f5b4a3e344c3dc80bc7ddaa9b9979b49658d0 (diff) | |
| download | levitating-ce036a72ca597a9dd3b19fb1f9871c01376a5361.tar.gz levitating-ce036a72ca597a9dd3b19fb1f9871c01376a5361.zip | |
Added links on jobs pages to the instructions and player that were running the job.
Diffstat (limited to 'captain/external.f90')
| -rw-r--r-- | captain/external.f90 | 19 |
1 files changed, 15 insertions, 4 deletions
diff --git a/captain/external.f90 b/captain/external.f90 index e691dfb..2a0bc23 100644 --- a/captain/external.f90 +++ b/captain/external.f90 @@ -79,7 +79,8 @@ contains use captain_db use server_response use special_filenames, only: get_task_result_static_filename - use request_utils, only: get_status_utf8 + use request_utils, only: get_status_utf8, get_player_link => player_link, & + get_instruction_link => instruction_link implicit none type(request), intent(in)::req @@ -89,12 +90,12 @@ contains integer::i, j, job_id type(job)::one_job - character(PLAYER_NAME_LENGTH)::player character(1)::nl = new_line(' ') type(task), dimension(:), pointer::tasks character(32)::task_text, job_text character(len=:), pointer::task_results_filename + character(len=:), pointer::player_link, instruction_link res => null() @@ -111,8 +112,18 @@ contains status = get_status_utf8(one_job%status) res = "## Status - "//status - call get_player_name(one_job%player, player) - res = trim(res)//nl//nl//"Running on "//trim(player)//nl//"Last update at: "//one_job%time + player_link => get_player_link(one_job%player, .TRUE.) + + if(associated(player_link)) then + res = trim(res)//nl//nl//"Running on:"//nl//player_link//nl//"Last update at: "//one_job%time + deallocate(player_link) + end if + + instruction_link => get_instruction_link(one_job%instruction, .TRUE.) + if(associated(instruction_link)) then + res = trim(res)//nl//"Executing:"//nl//instruction_link + deallocate(instruction_link) + end if res = trim(res)//nl//nl//"### Task Results" |