diff options
Diffstat (limited to 'captain/captian.f90')
| -rw-r--r-- | captain/captian.f90 | 7 |
1 files changed, 4 insertions, 3 deletions
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()) |