diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-08 09:31:55 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-08 09:31:55 -0400 |
| commit | eaf8cf88305640cdaf274504c1cead5e88bf09d4 (patch) | |
| tree | 6aa1814e7172f001c62ad2a15da86970b7e1860f /captain/external.f90 | |
| parent | 26eee62be8820373a61654c51c6f3622fe46d166 (diff) | |
| download | levitating-eaf8cf88305640cdaf274504c1cead5e88bf09d4.tar.gz levitating-eaf8cf88305640cdaf274504c1cead5e88bf09d4.zip | |
Fixed task handling inside the captain. Fixed static file delivery.
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 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 |