From 025b5d1dcbb30e727afee3307d49328432bae603 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Fri, 9 Apr 2021 08:09:20 -0400
Subject: Modified how logging works so that multiple processes can write in
 theory.

---
 captain/db.f90 | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

(limited to 'captain/db.f90')

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
     
-- 
cgit v1.2.3