aboutsummaryrefslogtreecommitdiff
path: root/protocol.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-05-18 09:25:46 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-05-18 09:25:46 -0400
commitc82d8fb98d2e121793e912fea65b9ce87f15176f (patch)
tree61c62eb39691565674fc1262c9cef95ceee41f0e /protocol.f90
parent9061cceae5cd9b2a1b17cd895ba92729987e4803 (diff)
parent0d268753686d1b5c3930db64eca508b27fc9b7a8 (diff)
downloadLR-87-c82d8fb98d2e121793e912fea65b9ce87f15176f.zip
LR-87-c82d8fb98d2e121793e912fea65b9ce87f15176f.tar.gz
Merge branch 'master' of lilarm.approximatrix.com:gemini-fortran
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 c25441c..706f442 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