From 9d19023f554dee7d8656a18dd81479decc03b3ee Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Tue, 30 Mar 2021 16:36:14 -0400
Subject: Modified the jobs table.  Added job derived type to the database
 module.  Need accessor calls.

---
 captain/external.f90 | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

(limited to 'captain/external.f90')

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