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

1 files changed, 6 insertions, 6 deletions

diff --git a/captain/response.f90 b/captain/response.f90
index b980f8e..efa99bb 100644
--- a/captain/response.f90
+++ b/captain/response.f90
@@ -80,12 +80,12 @@ contains
         n = len_trim(str)
         allocate(character(len=n) :: self%url)
         self%url = trim(str)
-        call write_log("URL: "//self%url)
+        call write_log("URL: "//self%url, LOG_NORMAL)
         
         i = index(str, "://")
         allocate(character(len=(i-1)) :: self%protocol)
         self%protocol = str(1:i-1)
-        call write_log("Protocol: "//self%protocol)
+        call write_log("Protocol: "//self%protocol, LOG_DEBUG)
         
         i = i + 3
         j = index(str(i:n), "/")
@@ -94,7 +94,7 @@ contains
         end if
         allocate(character(len=(j-1)) :: self%server)
         self%server = str(i:(i+j-1))
-        call write_log("Server: "//self%server//"|")
+        call write_log("Server: "//self%server//"|", LOG_DEBUG)
         
         i = j+i-1
         j = index(str, "?")
@@ -106,16 +106,16 @@ contains
                 allocate(character(len=(n - i + 1)) :: self%location)
                 self%location = str(i:n)
             end if
-            call write_log("Location: "//self%location)
+            call write_log("Location: "//self%location, LOG_DEBUG)
             
         else
             allocate(character(len=(n-j)) :: self%query_string)
             self%query_string = str(j+1:n)
-            call write_log("Query: "//self%query_string)
+            call write_log("Query: "//self%query_string, LOG_DEBUG)
             
             allocate(character(len=(j-i)) :: self%location)
             self%location = str(i:j-1)
-            call write_log("Location: "//self%location)
+            call write_log("Location: "//self%location, LOG_DEBUG)
         end if
     
     end subroutine request_init