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 | |
| 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')
| -rw-r--r-- | captain/requtils.f90 | 4 | ||||
| -rw-r--r-- | 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) |