diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-12 10:32:39 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-12 10:32:39 -0400 |
commit | fca71fde0161a59ac650bd690a3413ffd866662d (patch) | |
tree | 72b1e6040f0b2401c358d54e1bdec9f0724a7d41 /captain/gemini.f90 | |
parent | 025b5d1dcbb30e727afee3307d49328432bae603 (diff) | |
download | levitating-fca71fde0161a59ac650bd690a3413ffd866662d.tar.gz levitating-fca71fde0161a59ac650bd690a3413ffd866662d.zip |
URLs in instructions can now leave out the server implying download and upload from the server itself. Download and upload both work correctly.
Diffstat (limited to 'captain/gemini.f90')
-rw-r--r-- | captain/gemini.f90 | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/captain/gemini.f90 b/captain/gemini.f90 index 099a81e..2afd327 100644 --- a/captain/gemini.f90 +++ b/captain/gemini.f90 @@ -177,7 +177,7 @@ contains use iso_c_binding use config use iso_fortran_env - use external_handling, only: external_request_gemini + use external_handling, only: external_request_gemini, external_request_titan use api_handling use logging use server_response @@ -274,7 +274,12 @@ contains resp = api_request_titan(treq) end if else - resp = external_request_gemini(req) + if(req%protocol == "gemini") then + resp = external_request_gemini(req) + else if(req%protocol == "titan") then + call treq%init_from_request(req, ssl) + resp = external_request_titan(treq) + end if end if call write_log("Handling response", LOG_DEBUG) |