aboutsummaryrefslogtreecommitdiff
path: root/captain/external.f90
diff options
context:
space:
mode:
Diffstat (limited to 'captain/external.f90')
-rw-r--r--captain/external.f9011
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