diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-06-28 16:25:12 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-06-28 16:25:12 -0400 |
commit | 1023ceb58f48c7a01a8d04688a48918ac485d20a (patch) | |
tree | 80da33c29df79272a861eafce46b7280fd5fc06a /captain/web.f90 | |
parent | 6e59e791b7b4d1184e70378544b6ace433ab33aa (diff) | |
download | levitating-1023ceb58f48c7a01a8d04688a48918ac485d20a.tar.gz levitating-1023ceb58f48c7a01a8d04688a48918ac485d20a.zip |
Refactoring requests to be protocol-specific
Diffstat (limited to 'captain/web.f90')
-rw-r--r-- | captain/web.f90 | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/captain/web.f90 b/captain/web.f90 index e7ade4f..f808eae 100644 --- a/captain/web.f90 +++ b/captain/web.f90 @@ -70,7 +70,7 @@ contains use config implicit none - type(request), intent(in)::req + class(request), intent(in)::req type(template), intent(inout)::page character(len=128)::username @@ -93,11 +93,11 @@ contains end subroutine handle_basic_template_components subroutine build_request_object(req) - use server_response, only:request + use server_response, only:http_request use logging implicit none - type(request), intent(out)::req + type(http_request), intent(out)::req character(len=:), allocatable::url, script_name, cookie character(len=4)::method integer::url_size, cookie_size @@ -1004,7 +1004,7 @@ contains use utilities, only: build_date implicit none - type(request), intent(in)::req + class(request), intent(in)::req type(response)::resp character(64)::template_to_use @@ -1197,13 +1197,13 @@ contains use page_template use config, only: template_filepath, global_permissions use logging - use server_response, only:request, response + use server_response, only:http_request, response use http_post_utilities use query_utilities, only: query use http_codes implicit none - type(request), intent(in)::req + type(http_request), intent(in)::req type(response)::resp type(query)::posted @@ -1284,7 +1284,7 @@ contains end function handle_post subroutine handle_request() - use server_response, only:request, response + use server_response, only:http_request, response use logging use request_utils use http_codes @@ -1293,7 +1293,7 @@ contains use utilities, only: echo_file_stdout implicit none - type(request)::req + type(http_request)::req type(response)::resp integer::response_size |