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 ++-- captain/web.f90 | 16 ++++++++-------- 2 files changed, 10 insertions(+), 10 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) diff --git a/captain/web.f90 b/captain/web.f90 index c0fdbf0..a0e7a90 100644 --- a/captain/web.f90 +++ b/captain/web.f90 @@ -193,13 +193,13 @@ contains call page%assign('title', 'Jobs') !contents => generate_jobs_gemini(req) - call page%assign('contents', contents) + !call page%assign('contents', contents) else if(trim(req%location) == "/players.html") then call page%assign('title', 'Players') !contents => generate_players_gemini() - call page%assign('contents', contents) + !call page%assign('contents', contents) else if(req%location(1:9) == '/players/') then @@ -211,20 +211,20 @@ contains call page%assign('title', 'Build Instructions') !contents => generate_instructions_gemini() - call page%assign('contents', contents) + !call page%assign('contents', contents) else if(trim(first) == "instructions") then call page%assign('title', 'Build Instructions') !contents => generate_one_instuction_gemini(req) - call page%assign('contents', contents) + !call page%assign('contents', contents) else if(trim(first) == "jobs") then - call get_job_page_title(req, job_page_title) - call page%assign('title', trim(job_page_title)) + !call get_job_page_title(req, job_page_title) + !call page%assign('title', trim(job_page_title)) !contents => generate_one_job_gemini(req) - call page%assign('contents', contents) + !call page%assign('contents', contents) else @@ -268,7 +268,7 @@ contains call write_redirect(output_unit, resp%code, trim(resp%url)) case(HTTP_CODE_SUCCESS) - inquire(name=resp%body_filename, size=response_size) + inquire(file=resp%body_filename, size=response_size) call write_response_headers(output_unit, resp%code, response_size, trim(resp%body_mimetype)) call echo_file_stdout(resp%body_filename) -- cgit v1.2.3