diff options
| -rw-r--r-- | captain/db.f90 | 4 |
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 |