diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2024-03-06 15:19:38 -0500 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2024-03-06 15:19:38 -0500 |
| commit | ecc01dc193c75cee918101103fffe59dc0283d75 (patch) | |
| tree | a562b2249b0dbf812068f0443aaa5edab9379f35 | |
| parent | 8217283bed26f052ea0d29afec18b224d63d4fb2 (diff) | |
| download | levitating-ecc01dc193c75cee918101103fffe59dc0283d75.tar.gz levitating-ecc01dc193c75cee918101103fffe59dc0283d75.zip | |
Sessions now expire after 1 day.
| -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 |