aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--protocol.f906
1 files changed, 5 insertions, 1 deletions
diff --git a/protocol.f90 b/protocol.f90
index 087e96a..76fb8d4 100644
--- a/protocol.f90
+++ b/protocol.f90
@@ -143,7 +143,11 @@ contains
if(path(1:1) == "/") then
first_slash = index(current_url(past_protocol:len_trim(current_url)), "/")
- current_url = current_url(1:(past_protocol + first_slash - 1))//path(2:len_trim(path))
+ if(first_slash < 1) then
+ current_url = trim(current_url)//trim(path)
+ else
+ current_url = current_url(1:(past_protocol + first_slash - 1))//path(2:len_trim(path))
+ end if
else