diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-03-30 16:36:14 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-03-30 16:36:14 -0400 |
commit | 9d19023f554dee7d8656a18dd81479decc03b3ee (patch) | |
tree | 2aae2391b4edb14ca7b52634be4f438de6fc80f0 /captain/external.f90 | |
parent | c6a3bdfc5e02b9e35b1e0fc5af2d0bf0319681ac (diff) | |
download | levitating-9d19023f554dee7d8656a18dd81479decc03b3ee.tar.gz levitating-9d19023f554dee7d8656a18dd81479decc03b3ee.zip |
Modified the jobs table. Added job derived type to the database module. Need accessor calls.
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 |