From 025b5d1dcbb30e727afee3307d49328432bae603 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Fri, 9 Apr 2021 08:09:20 -0400 Subject: Modified how logging works so that multiple processes can write in theory. --- captain/captian.f90 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'captain/captian.f90') diff --git a/captain/captian.f90 b/captain/captian.f90 index eb278a6..f5ee308 100644 --- a/captain/captian.f90 +++ b/captain/captian.f90 @@ -1,7 +1,7 @@ program captain use captain_db use config -use logging, only: initialize_log => initialize, logunit +use logging, only: initialize_log => initialize, shutdown_log => shutdown use gemini, only: handle_gemini => handle_request implicit none @@ -13,7 +13,7 @@ implicit none call parse_options() - call initialize_log(log_filename) + call initialize_log(log_filename, loglevel) call initialize_db(database_filename) @@ -23,7 +23,7 @@ implicit none end select call shutdown_db() - close(logunit) + call shutdown_log() contains @@ -55,6 +55,7 @@ contains config_loaded = .false. mode = MODE_CGI_HTML + loglevel = 3 i = 1 do while(i <= command_argument_count()) -- cgit v1.2.3