aboutsummaryrefslogtreecommitdiff
path: root/request.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-05-05 07:54:53 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-05-05 07:54:53 -0400
commit723324ae71f8209e4b1757a3f84bd0e66b6c6319 (patch)
tree91737e20dba6e06068ea37bb9bcb79122a12d427 /request.f90
parent1ef40339cc161484b3e70d34ab4d507b758b29eb (diff)
downloadLR-87-723324ae71f8209e4b1757a3f84bd0e66b6c6319.zip
LR-87-723324ae71f8209e4b1757a3f84bd0e66b6c6319.tar.gz
Actual client can now load and display a page using dumb_renderer
Diffstat (limited to 'request.f90')
-rw-r--r--request.f904
1 files changed, 3 insertions, 1 deletions
diff --git a/request.f90 b/request.f90
index 67cc4f7..8a4e4e5 100644
--- a/request.f90
+++ b/request.f90
@@ -158,12 +158,14 @@ contains
if(end_server <= 0) then
end_server = len_trim(url)
else
- end_server = end_server + start_server - 1
+ ! Get rid of trailing slash
+ end_server = end_server + start_server - 2
end if
length = end_server - start_server + 1
allocate(character(len=length) :: server)
server = url(start_server:end_server)
+ Print *, "server is: "//trim(server)
end if
end function get_server_from_url