diff options
Diffstat (limited to 'captain/db.f90')
| -rw-r--r-- | captain/db.f90 | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/captain/db.f90 b/captain/db.f90 index 56e8a70..e3a9f50 100644 --- a/captain/db.f90 +++ b/captain/db.f90 @@ -569,16 +569,11 @@ contains end function get_job_tasks subroutine update_job_status(job_id, status) - use logging implicit none integer, intent(in)::job_id, status type(sqlite3_stmt)::stmt - character(128)::msg - - write(msg, *) "Update ", job_id, " to ", status - call write_log(trim(msg)) - + if(stmt%prepare(db, "UPDATE jobs SET status=? WHERE id=?") == SQLITE_OK) then if(stmt%bind_int(1, status) == SQLITE_OK .and. stmt%bind_int(2, job_id) == SQLITE_OK) then call stmt%step_now() @@ -652,19 +647,15 @@ contains end subroutine update_task_status function is_final_job_status(job_id) - use logging implicit none integer, intent(in)::job_id logical::is_final_job_status integer::i - character(128)::s i = get_job_status(job_id) is_final_job_status = (i == JOB_STATUS_SUCCESS .or. i == JOB_STATUS_FAILURE) - write(s, *) "Status for ", job_id, " is ", i, " or ", is_final_job_status - call write_log(trim(s)) end function is_final_job_status |