From b125906018d0d3d09baeebb096db56ca052902eb Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Thu, 1 Apr 2021 12:39:06 -0400
Subject: Fixed request parsing to initialize a necessary variable.  Minor
 cosmetic  changes to instruction handling.

---
 captain/response.f90 | 28 +++++++++++++++++++---------
 1 file changed, 19 insertions(+), 9 deletions(-)

(limited to 'captain/response.f90')

diff --git a/captain/response.f90 b/captain/response.f90
index 5463978..37eaf58 100644
--- a/captain/response.f90
+++ b/captain/response.f90
@@ -47,7 +47,7 @@ module server_response
 contains
 
     subroutine request_init(self, str)
-    !use logging
+    use logging
     implicit none
     
         class(request) :: self
@@ -58,33 +58,42 @@ contains
         n = len_trim(str)
         allocate(character(len=n) :: self%url)
         self%url = trim(str)
-        !call write_log("URL: "//self%url)
+        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)
+        call write_log("Protocol: "//self%protocol)
         
         i = i + 3
         j = index(str(i:n), "/")
+        if(j <= 0) then
+            j = len_trim(str) + 1 - i
+        end if
         allocate(character(len=(j-1)) :: self%server)
         self%server = str(i:(i+j-1))
-        !call write_log("Server: "//self%server)
+        call write_log("Server: "//self%server//"|")
         
         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)
+            if(n-i+1 == 0) then
+                allocate(character(len=1) :: self%location)
+                self%location = "/"
+            else
+                allocate(character(len=(n - i + 1)) :: self%location)
+                self%location = str(i:n)
+            end if
+            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)
+            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)
+            call write_log("Location: "//self%location)
         end if
     
     end subroutine request_init
@@ -103,6 +112,7 @@ contains
         
         n = len_trim(self%location)
 
+        i_last = 0
         j = 0
         i = index(self%location, "/")
         do while(i /= i_last .and. j < i_component)
-- 
cgit v1.2.3