aboutsummaryrefslogtreecommitdiff
path: root/protocol.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-05-17 10:44:21 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-05-17 10:44:21 -0400
commit0d268753686d1b5c3930db64eca508b27fc9b7a8 (patch)
tree874f3a06adc61dedc7b55cd68b99fa0d6f065fc1 /protocol.f90
parenta4de5b27c2ce9aca1516b13ad9c70a51f9bd06ff (diff)
downloadLR-87-0d268753686d1b5c3930db64eca508b27fc9b7a8.zip
LR-87-0d268753686d1b5c3930db64eca508b27fc9b7a8.tar.gz
Fixed handling of server urls if a port is specified.
Diffstat (limited to 'protocol.f90')
-rw-r--r--protocol.f909
1 files changed, 8 insertions, 1 deletions
diff --git a/protocol.f90 b/protocol.f90
index e8039d3..502778c 100644
--- a/protocol.f90
+++ b/protocol.f90
@@ -33,6 +33,8 @@ implicit none
integer, parameter::STATUS_LOCALFAIL = -1
integer, parameter::BUFFER_SIZE = 256
+
+ integer, parameter::gemini_default_port = 1965
contains
@@ -83,6 +85,7 @@ contains
integer, intent(in)::unit_number
character(*), intent(out)::return_type
character(*), intent(in), optional::server_name
+ integer::port
integer::returncode
@@ -99,8 +102,12 @@ contains
if(present(server_name)) then
allocate(character(len=len_trim(server_name)) :: server)
server = server_name
+ port = gemini_default_port
else
- call get_server_from_url(url, server)
+ call get_server_from_url(url, server, port)
+ if(port < 0) then
+ port = gemini_default_port
+ end if
end if
! Correct URL relative paths