diff options
Diffstat (limited to 'captain/web.f90')
-rw-r--r-- | captain/web.f90 | 30 |
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 |