From da47fdfddc46e35a939b7771eda21debec50c094 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Thu, 1 Apr 2021 20:41:13 -0400 Subject: Started work on API implementation --- captain/gemini.f90 | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'captain/gemini.f90') diff --git a/captain/gemini.f90 b/captain/gemini.f90 index 46725cb..8822ed5 100644 --- a/captain/gemini.f90 +++ b/captain/gemini.f90 @@ -178,6 +178,7 @@ contains use config use iso_fortran_env use external_handling, only: external_request_gemini + use api_handling, only: api_request use logging, only: write_log use server_response implicit none @@ -193,6 +194,8 @@ contains ! Requested file character(1024)::text_request + + character(32)::first integer::rendered_unit, ioerror @@ -258,13 +261,11 @@ contains call req%init(text_request) call write_log("Request object created") - if(len(req%location) .ge. 4) then - if(req%location(1:4) == '/api') then - !call handle_api_request(request) - else - resp = external_request_gemini(req) - end if - else + + call req%path_component(1, first) + if(trim(first) == 'api') then + resp = api_request(request) + else resp = external_request_gemini(req) end if -- cgit v1.2.3