From 010380a9afc53db7e200db2e7c04b86269dfd1e0 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Tue, 17 Aug 2021 08:47:14 -0400
Subject: Added client-side message when titan errors with tempfail

---
 player/tasks.f90 | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'player')

diff --git a/player/tasks.f90 b/player/tasks.f90
index b0f2cc1..efc0fe4 100644
--- a/player/tasks.f90
+++ b/player/tasks.f90
@@ -152,7 +152,7 @@ contains
 
     function upload(url, source_filename) result(res)
     use config, only: token, captain, identity
-    use gemini_protocol, only: titan_post_url, STATUS_SUCCESS
+    use gemini_protocol, only: titan_post_url, STATUS_SUCCESS, STATUS_TEMPFAIL
     implicit none
     
         logical::res
@@ -211,6 +211,11 @@ contains
             Print *, "Writing "//trim(mod_url)
             istatus = titan_post_url(mod_url, unit_number, file_size, trim(identity)//":"//trim(token))
             Print *, "Response code from server: ", istatus
+            
+            if(istatus == STATUS_TEMPFAIL) then
+                Print *, "Server failed to finish handling file - temporary failure"
+            end if
+            
             res = (istatus == STATUS_SUCCESS)
             close(unit_number)
         else
-- 
cgit v1.2.3