Fixed outstanding issues in template variable assignment and player content building. Removed unnecessary logging calls.

1 files changed, 8 insertions, 1 deletions

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