From 723324ae71f8209e4b1757a3f84bd0e66b6c6319 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Tue, 5 May 2020 07:54:53 -0400 Subject: Actual client can now load and display a page using dumb_renderer --- request.f90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'request.f90') 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 -- cgit v1.2.3