diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-05 07:54:53 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-05 07:54:53 -0400 |
commit | 723324ae71f8209e4b1757a3f84bd0e66b6c6319 (patch) | |
tree | 91737e20dba6e06068ea37bb9bcb79122a12d427 /request.f90 | |
parent | 1ef40339cc161484b3e70d34ab4d507b758b29eb (diff) | |
download | LR-87-723324ae71f8209e4b1757a3f84bd0e66b6c6319.tar.gz LR-87-723324ae71f8209e4b1757a3f84bd0e66b6c6319.zip |
Actual client can now load and display a page using dumb_renderer
Diffstat (limited to 'request.f90')
-rw-r--r-- | request.f90 | 4 |
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 |