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