aboutsummaryrefslogtreecommitdiff
path: root/captain
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2024-03-06 15:19:38 -0500
committerJeffrey Armstrong <jeff@approximatrix.com>2024-03-06 15:19:38 -0500
commitecc01dc193c75cee918101103fffe59dc0283d75 (patch)
treea562b2249b0dbf812068f0443aaa5edab9379f35 /captain
parent8217283bed26f052ea0d29afec18b224d63d4fb2 (diff)
downloadlevitating-ecc01dc193c75cee918101103fffe59dc0283d75.tar.gz
levitating-ecc01dc193c75cee918101103fffe59dc0283d75.zip
Sessions now expire after 1 day.
Diffstat (limited to 'captain')
-rw-r--r--captain/db.f904
1 files changed, 2 insertions, 2 deletions
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