Fixed many issues related to reporting status. Initial debugging of titan upload handling.

1 files changed, 5 insertions, 2 deletions

diff --git a/player/player.F90 b/player/player.F90
index f5e4055..bac6d6f 100644
--- a/player/player.F90
+++ b/player/player.F90
@@ -39,6 +39,7 @@ implicit none
         end if
         
         if(work_to_do) then
+            Print *, "Work Available"
             job_id = get_job_id_from_checkin(j_checkin)
             call get_instruction_name_from_checkin(j_checkin, instruction_name)
             
@@ -46,6 +47,8 @@ implicit none
             instr_json_available = request_json(url, j_instructions)
             
             if(instr_json_available) then
+                Print *, "instructions available"
+                
                 ! Task loop
                 call perform_tasks(j_instructions, job_id)
                 
@@ -55,7 +58,7 @@ implicit none
         else
         
 #ifdef GNU
-            call sleep(50)
+            call sleep(20)
 #endif
 
         end if
@@ -157,7 +160,7 @@ contains
         ! NOTE: will fail on Windows
         if(.not. associated(logfile)) then
             allocate(character(len=256) :: logfile)
-            logfile = "/tmp/levitating.log"
+            logfile = "/tmp/levitating-player.log"
         end if
         
         ! Assign this computer an identity if not explicitly specified