From ecc01dc193c75cee918101103fffe59dc0283d75 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Wed, 6 Mar 2024 15:19:38 -0500
Subject: Sessions now expire after 1 day.

---
 captain/db.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'captain')

diff --git a/captain/db.f90 b/captain/db.f90
index 34ee16c..7ee0515 100644
--- a/captain/db.f90
+++ b/captain/db.f90
@@ -97,7 +97,7 @@ contains
             Print *, "ERROR: Could not open db"
             stop
         end if
-        
+        call destroy_old_sessions_db()
     end subroutine initialize_db
     
     subroutine shutdown_db()
@@ -1682,7 +1682,7 @@ contains
     
         type(sqlite3_stmt)::stmt
 
-        if(stmt%prepare(db, "DELETE FROM sessions WHERE accessed < datetime('now', '-30 minutes')") == SQLITE_OK) then
+        if(stmt%prepare(db, "DELETE FROM sessions WHERE accessed < datetime('now', '-1 day')") == SQLITE_OK) then
             call stmt%step_now()
             call stmt%finalize()
         end if
-- 
cgit v1.2.3