diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-05 09:45:49 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-05 09:45:49 -0400 |
| commit | 27c3147c7efe37657563fadcb835b50d00423475 (patch) | |
| tree | 1a7ddebc114a4e465326080b6a1b9a662447c641 /captain/gemini.f90 | |
| parent | bff06af2176e2f2813482b4fa7b4096a9982999b (diff) | |
| download | levitating-27c3147c7efe37657563fadcb835b50d00423475.tar.gz levitating-27c3147c7efe37657563fadcb835b50d00423475.zip | |
Implemented titan handling on the server, hopefully. Added sending the captured file for a task to failed jobs as well.
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 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 |