aboutsummaryrefslogtreecommitdiff
path: root/player
diff options
context:
space:
mode:
Diffstat (limited to 'player')
-rw-r--r--player/endpoints.f9017
-rw-r--r--player/talking.f902
2 files changed, 9 insertions, 10 deletions
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