From 15837a5fd46a1c9051d54138ba3ade26c74091f1 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Mon, 5 Apr 2021 12:02:46 -0400 Subject: Fixed URL issues in player --- player/endpoints.f90 | 17 ++++++++--------- player/talking.f90 | 2 +- 2 files changed, 9 insertions(+), 10 deletions(-) (limited to 'player') diff --git a/player/endpoints.f90 b/player/endpoints.f90 index 8ec339d..6a2c955 100644 --- a/player/endpoints.f90 +++ b/player/endpoints.f90 @@ -55,23 +55,21 @@ contains allocate(character(len=length_estimate) :: holding) holding = " " + print *, trim(str) + ! Find the field field_location = index(str, "{"//trim(field)//"}") if(field_location > 0) then - - holding(1:field_location-1) = str(1:field_location-1) - - j = field_location - holding(j:j+len_trim(val)) = trim(val) - + i = field_location + len_trim(field) + 2 - j = len_trim(holding)+1 - holding(j:j+(len_trim(str)-i)) = str(i:len_trim(str)) - + holding = str(1:field_location-1)//trim(val)//str(i:len_trim(str)) + ! Put the results back now str = holding end if + + print *, trim(str) deallocate(holding) @@ -143,6 +141,7 @@ contains else call base_url(captain, LOCATION_JOB_FAILED, .false., res) end if + call replace_field(res, "name", identity) call replace_field(res, "jobid", job) end subroutine get_job_report_url diff --git a/player/talking.f90 b/player/talking.f90 index f41d3bb..9c9db05 100644 --- a/player/talking.f90 +++ b/player/talking.f90 @@ -46,7 +46,7 @@ contains character(:), pointer::filename integer::status_code - filename = generate_temporary_filename() + filename => generate_temporary_filename() if(.not. associated(filename)) then status_code = STATUS_LOCALFAIL else -- cgit v1.2.3