From e9460ea44fe7c11dc6d7d668ca9cd1b36418f097 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Thu, 24 Jun 2021 16:01:06 -0400
Subject: Player tokens can now be set via web interface.

---
 captain/db.f90 | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

(limited to 'captain/db.f90')

diff --git a/captain/db.f90 b/captain/db.f90
index b789280..315bd10 100644
--- a/captain/db.f90
+++ b/captain/db.f90
@@ -146,6 +146,31 @@ contains
     
     end subroutine update_player_token_db
     
+    function player_has_token_db(name)
+    implicit none
+    
+        character(*), intent(in)::name
+        logical::player_has_token_db
+        type(sqlite3_stmt)::stmt
+        
+        character(128)::tk
+        
+        player_has_token_db = .false.
+        
+        if(stmt%prepare(db, "SELECT token FROM  players WHERE name=?") == SQLITE_OK) then
+            if(stmt%bind_text(1, name) == SQLITE_OK ) then
+                if(stmt%step() == SQLITE_ROW) then
+                    call stmt%column_text(0, tk)
+                    player_has_token_db = (trim(tk) /= "None")
+                end if
+            end if
+        end if
+        call stmt%finalize()
+        
+        
+    end function player_has_token_db
+        
+    
     subroutine remove_player_db(name)
     implicit none
     
-- 
cgit v1.2.3