Added new database table for tracking last player checkin with requisite Fortran procedures.

1 files changed, 30 insertions, 0 deletions

diff --git a/captain/web.f90 b/captain/web.f90
index dac658b..ea3127e 100644
--- a/captain/web.f90
+++ b/captain/web.f90
@@ -555,6 +555,36 @@ contains
         
     end function generate_players_html
 
+    function generate_one_player_html(req) result(res)
+    use captain_db
+    use server_response
+    use request_utils
+    implicit none
+
+        type(request), intent(in)::req
+        character(len=:), pointer::res
+        
+        character(len=PLAYER_NAME_LENGTH)::player_name
+        integer::n, pid
+        
+        call req%last_component(player_name)
+        pid = get_player_id(trim(player_name))
+        
+        n = get_instructions_count(player=pid)
+        allocate(character(len=(2*n*PLAYER_NAME_LENGTH + 1024)) :: res)
+        
+        res = "<h2>"//trim(player_name)//"</h2>"
+        
+        ! Last checkin
+        
+        
+        ! List of instructions
+        
+        ! Token assignment
+        
+    
+    end function generate_one_player_html
+
     function generate_one_job_html(req) result(res)
     use captain_db
     use server_response