From eaf8cf88305640cdaf274504c1cead5e88bf09d4 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Thu, 8 Apr 2021 09:31:55 -0400 Subject: Fixed task handling inside the captain. Fixed static file delivery. --- captain/external.f90 | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'captain/external.f90') diff --git a/captain/external.f90 b/captain/external.f90 index 2ddd7f4..5cbee17 100644 --- a/captain/external.f90 +++ b/captain/external.f90 @@ -208,7 +208,7 @@ contains write(task_text, '(I8)') i res = trim(res)//nl//"=> /results/"//task_results_filename//" "// & - trim(status)//"Task "//trim(adjustl(task_text)) + trim(status)//" - Task "//trim(adjustl(task_text)) end do deallocate(tasks) @@ -644,7 +644,11 @@ contains logical::exists resp%temporary_file = .false. - resp%body_filename => get_special_full_filename(category, filename) + + call req%path_component(1, category) + call req%path_component(2, filename) + + resp%body_filename => get_special_full_filename(trim(category), trim(filename)) inquire(file=resp%body_filename, exist=exists) if(.not. exists) then -- cgit v1.2.3