From fbfd194941de48affaa92522ceaff97010abc1c2 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Tue, 30 Mar 2021 10:52:12 -0400 Subject: Fixed outstanding issues in template variable assignment and player content building. Removed unnecessary logging calls. --- captain/response.f90 | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'captain/response.f90') diff --git a/captain/response.f90 b/captain/response.f90 index b0fe9df..efc8655 100644 --- a/captain/response.f90 +++ b/captain/response.f90 @@ -47,6 +47,7 @@ module server_response contains subroutine request_init(self, str) + !use logging implicit none class(request) :: self @@ -57,27 +58,33 @@ contains n = len_trim(str) allocate(character(len=n) :: self%url) self%url = trim(str) + !call write_log("URL: "//self%url) i = index(str, "://") allocate(character(len=(i-1)) :: self%protocol) self%protocol = str(1:i-1) + !call write_log("Protocol: "//self%protocol) i = i + 3 j = index(str(i:n), "/") allocate(character(len=(j-1)) :: self%server) self%server = str(i:(i+j-1)) + !call write_log("Server: "//self%server) - i = j + i = j+i-1 j = index(str, "?") if(j == 0) then allocate(character(len=(n - i + 1)) :: self%location) self%location = str(i:n) + !call write_log("Location: "//self%location) else allocate(character(len=(n-j)) :: self%query_string) self%query_string = str(j+1:n) + !call write_log("Query: "//self%query_string) allocate(character(len=(j-i)) :: self%location) self%location = str(i:j-1) + !call write_log("Location: "//self%location) end if end subroutine request_init -- cgit v1.2.3