aboutsummaryrefslogtreecommitdiff
path: root/player/instructions.f90
diff options
context:
space:
mode:
Diffstat (limited to 'player/instructions.f90')
-rw-r--r--player/instructions.f904
1 files changed, 3 insertions, 1 deletions
diff --git a/player/instructions.f90 b/player/instructions.f90
index 300fa2a..f9be1f9 100644
--- a/player/instructions.f90
+++ b/player/instructions.f90
@@ -405,6 +405,7 @@ contains
logical::res
character(len=:), pointer::captured_filename
character(len=1024)::url
+ character(len=40)::operation
task_count = get_task_count(j)
@@ -412,8 +413,9 @@ contains
! Remember to zero-index your json!
do i = 1, task_count
+ call get_task_operation(j, i, operation)
+ call get_status_url(job_id, i, url, status=STATUS_STARTING, task_type=operation)
- call get_status_url(job_id, i, url, status=STATUS_STARTING)
Print *, "Reporting: "//trim(url)
server_status = request_to_ignored(url)