From d6f9ce81e4fd27c94cf656699ef4952956dff608 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Tue, 22 Jun 2021 17:04:59 -0400
Subject: Added new database table for tracking last player checkin with
 requisite Fortran procedures.

---
 captain/web.f90 | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

(limited to 'captain/web.f90')

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
-- 
cgit v1.2.3