diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-09 08:09:20 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-09 08:09:20 -0400 |
commit | 025b5d1dcbb30e727afee3307d49328432bae603 (patch) | |
tree | 49ad0f24b7f71d9e15fbe03499b1bbaa94e6571c /captain/response.f90 | |
parent | 29ab398f73c791f9591674c813c47267c524e6be (diff) | |
download | levitating-025b5d1dcbb30e727afee3307d49328432bae603.tar.gz levitating-025b5d1dcbb30e727afee3307d49328432bae603.zip |
Modified how logging works so that multiple processes can write in theory.
Diffstat (limited to 'captain/response.f90')
-rw-r--r-- | captain/response.f90 | 12 |
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 |