diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-06-29 08:33:07 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-06-29 08:33:07 -0400 |
commit | fb7136be64188cab7db34ac3ad6c8f27098173de (patch) | |
tree | 8660bbd7aec6a256dcaf672d5ffc4ac9c2d96fc4 /player/instructions.f90 | |
parent | 6e59e791b7b4d1184e70378544b6ace433ab33aa (diff) | |
download | levitating-fb7136be64188cab7db34ac3ad6c8f27098173de.tar.gz levitating-fb7136be64188cab7db34ac3ad6c8f27098173de.zip |
Initial work to show artifacts on job pages.
Diffstat (limited to 'player/instructions.f90')
-rw-r--r-- | player/instructions.f90 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/player/instructions.f90 b/player/instructions.f90 index f9be1f9..e81a46b 100644 --- a/player/instructions.f90 +++ b/player/instructions.f90 @@ -263,14 +263,14 @@ contains end subroutine get_task_operation - function perform_task(j, i, capture_filename) result(success) + function perform_task(j, job_id, i, capture_filename) result(success) use json_module use tasks use utilities implicit none class(json_file)::j - integer, intent(in)::i + integer, intent(in)::job_id, i character(len=:), pointer, intent(out)::capture_filename logical::success @@ -304,9 +304,9 @@ contains success = .false. else if(index(filename, "*") > 0 .or. index(filename, "?") > 0) then - success = upload_glob(url, filename) + success = upload_glob(url, filename, job_id) else - success = upload(url, filename) + success = upload(url, filename, job_id) end if end if @@ -419,7 +419,7 @@ contains Print *, "Reporting: "//trim(url) server_status = request_to_ignored(url) - res = perform_task(j, i, captured_filename) + res = perform_task(j, job_id, i, captured_filename) if(associated(captured_filename)) then if(res) then |