aboutsummaryrefslogtreecommitdiff
path: root/captain
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2021-05-05 16:10:37 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2021-05-05 16:10:37 -0400
commit58575b7eb5bbce3b253d55f122ab4f401d49eeba (patch)
tree4c233e84ff44fd5daa01dad6fd4a3965bf870d9a /captain
parent2fb449d28b45bec808f8c50cad56957d463e3a49 (diff)
downloadlevitating-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.f904
-rw-r--r--captain/web.f9016
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)