aboutsummaryrefslogtreecommitdiff
path: root/captain/gemini.f90
diff options
context:
space:
mode:
Diffstat (limited to 'captain/gemini.f90')
-rw-r--r--captain/gemini.f909
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)