diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-06-22 17:04:59 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-06-22 17:04:59 -0400 |
commit | d6f9ce81e4fd27c94cf656699ef4952956dff608 (patch) | |
tree | e3d3abab4b22b271b0886dc49830691f9f3f4c3e /captain/web.f90 | |
parent | 660235928d1dd57d85cb7bd986c5036783a6073f (diff) | |
download | levitating-d6f9ce81e4fd27c94cf656699ef4952956dff608.tar.gz levitating-d6f9ce81e4fd27c94cf656699ef4952956dff608.zip |
Added new database table for tracking last player checkin with requisite Fortran procedures.
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 |