From 27c3147c7efe37657563fadcb835b50d00423475 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Mon, 5 Apr 2021 09:45:49 -0400 Subject: Implemented titan handling on the server, hopefully. Added sending the captured file for a task to failed jobs as well. --- captain/gemini.f90 | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'captain/gemini.f90') diff --git a/captain/gemini.f90 b/captain/gemini.f90 index 8822ed5..8453db9 100644 --- a/captain/gemini.f90 +++ b/captain/gemini.f90 @@ -178,7 +178,7 @@ contains use config use iso_fortran_env use external_handling, only: external_request_gemini - use api_handling, only: api_request + use api_handling use logging, only: write_log use server_response implicit none @@ -190,6 +190,7 @@ contains integer(kind=c_long)::res type(request)::req + type(titan_request)::treq type(response)::resp ! Requested file @@ -264,7 +265,11 @@ contains call req%path_component(1, first) if(trim(first) == 'api') then - resp = api_request(request) + if(req%protocol == "gemini") then + resp = api_request_gemini(req) + else if(req%protocol == "titan") then + call treq%init_from_request(req, ssl) + end if else resp = external_request_gemini(req) end if -- cgit v1.2.3