Modified how logging works so that multiple processes can write in theory.

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