From 58575b7eb5bbce3b253d55f122ab4f401d49eeba Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Wed, 5 May 2021 16:10:37 -0400 Subject: Re-fixed inquire statements because I was wrong. Commented out some unimplemented calls. --- captain/requtils.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'captain/requtils.f90') diff --git a/captain/requtils.f90 b/captain/requtils.f90 index 23df37a..01c4472 100644 --- a/captain/requtils.f90 +++ b/captain/requtils.f90 @@ -52,7 +52,7 @@ contains else - inquire(name=actual_filename, exist=exists) + inquire(file=actual_filename, exist=exists) if(exists) then call get_one_line_output_shell_command("mimetype -b "//trim(actual_filename), mimetype) @@ -138,7 +138,7 @@ contains resp%body_filename => get_special_full_filename(trim(category), trim(filename)) - inquire(name=resp%body_filename, exist=exists) + inquire(file=resp%body_filename, exist=exists) if(.not. exists) then resp%code = notfound_code(req) -- cgit v1.2.3