diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-07 14:21:35 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-07 14:21:35 -0400 |
commit | c493170e73506e974a0644452fc5a334c08171bc (patch) | |
tree | 7cfbbde04f5e3263092118dbabf843fbe68d93ad /captain/external.f90 | |
parent | 1de4bd52574599452f9e92c8e36381a4797563fb (diff) | |
download | levitating-c493170e73506e974a0644452fc5a334c08171bc.tar.gz levitating-c493170e73506e974a0644452fc5a334c08171bc.zip |
Fixed many issues related to reporting status. Initial debugging of titan upload handling.
Diffstat (limited to 'captain/external.f90')
-rw-r--r-- | captain/external.f90 | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/captain/external.f90 b/captain/external.f90 index 97fa69c..db34a11 100644 --- a/captain/external.f90 +++ b/captain/external.f90 @@ -81,7 +81,16 @@ contains res = trim(res)//nl//nl//link - res = trim(res)//nl//"Running on "//trim(player)// & + select case(jobs(i)%status) + case(JOB_STATUS_SUCCESS, JOB_STATUS_FAILURE) + res = trim(res)//nl//"Completed on" + case(JOB_STATUS_PENDING) + res = trim(res)//nl//"Waiting to run on" + case(JOB_STATUS_WORKING) + res = trim(res)//nl//"Running on" + end select + + res = trim(res)//" "//trim(player)// & " - Last Update: "//trim(jobs(i)%time) end do |