diff options
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 |