diff options
Diffstat (limited to 'captain/external.f90')
-rw-r--r-- | captain/external.f90 | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/captain/external.f90 b/captain/external.f90 index d9e2a7e..2ddd7f4 100644 --- a/captain/external.f90 +++ b/captain/external.f90 @@ -162,6 +162,7 @@ contains function generate_one_job_gemini(req) result(res) use captain_db use server_response + use special_filenames, only: get_task_result_static_filename implicit none type(request), intent(in)::req @@ -176,6 +177,7 @@ contains type(task), dimension(:), pointer::tasks character(32)::task_text, job_text + character(len=:), pointer::task_results_filename res => null() @@ -201,9 +203,11 @@ contains if(associated(tasks)) then do i = 1, size(tasks) status = get_status_utf8(tasks(i)%status) - write(task_text, '(I8)') tasks(i)%number + task_results_filename => get_task_result_static_filename(one_job%id, i, no_path=.true.) - res = trim(res)//nl//"=> /results/"//trim(job_text)//"-"//trim(adjustl(task_text))//".txt "// & + write(task_text, '(I8)') i + + res = trim(res)//nl//"=> /results/"//task_results_filename//" "// & trim(status)//"Task "//trim(adjustl(task_text)) end do |