aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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