diff options
Diffstat (limited to 'captain/external.f90')
-rw-r--r-- | captain/external.f90 | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/captain/external.f90 b/captain/external.f90 index 78195f8..1a27be0 100644 --- a/captain/external.f90 +++ b/captain/external.f90 @@ -3,6 +3,27 @@ implicit none contains + function generate_jobs_gemini() result(res) + use captain_db + implicit none + + character(len=:), pointer::res + type(job), dimension(:), pointer::jobs + integer::n, i, nsize + + n = get_player_count() + if(n == 0) then + + allocate(character(len=1024) :: res) + + res = "None Yet" + + else + + end if + + end function generate_jobs_gemini + function generate_players_gemini() result(res) use captain_db implicit none @@ -300,6 +321,8 @@ contains else if(trim(req%location) == "/jobs.gmi") then call page%assign('title', 'Jobs') + contents => generate_jobs_gemini() + call page%assign('contents', contents) else if(trim(req%location) == "/players.gmi") then |