diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-05 16:10:37 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-05 16:10:37 -0400 |
| commit | 58575b7eb5bbce3b253d55f122ab4f401d49eeba (patch) | |
| tree | 4c233e84ff44fd5daa01dad6fd4a3965bf870d9a /captain/requtils.f90 | |
| parent | 2fb449d28b45bec808f8c50cad56957d463e3a49 (diff) | |
| download | levitating-58575b7eb5bbce3b253d55f122ab4f401d49eeba.tar.gz levitating-58575b7eb5bbce3b253d55f122ab4f401d49eeba.zip | |
Re-fixed inquire statements because I was wrong. Commented out some unimplemented calls.
Diffstat (limited to 'captain/requtils.f90')
| -rw-r--r-- | captain/requtils.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
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) |