diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-17 10:44:21 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-17 10:44:21 -0400 |
| commit | 0d268753686d1b5c3930db64eca508b27fc9b7a8 (patch) | |
| tree | 874f3a06adc61dedc7b55cd68b99fa0d6f065fc1 /protocol.f90 | |
| parent | a4de5b27c2ce9aca1516b13ad9c70a51f9bd06ff (diff) | |
| download | LR-87-0d268753686d1b5c3930db64eca508b27fc9b7a8.tar.gz LR-87-0d268753686d1b5c3930db64eca508b27fc9b7a8.zip | |
Fixed handling of server urls if a port is specified.
Diffstat (limited to 'protocol.f90')
| -rw-r--r-- | protocol.f90 | 9 |
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 |