Overview
| Comment: | Added removal of old tasks entries |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
9bebf083826051143a9f26627bf93b51 |
| User & Date: | mrwellan on 2014-11-14 07:50:36 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-11-14
| ||
| 14:04 | Simplified triggering of sync check-in: a1b0d55f23 user: mrwellan tags: v1.60 | |
| 07:50 | Added removal of old tasks entries check-in: 9bebf08382 user: mrwellan tags: v1.60 | |
| 07:16 | Added exception handler to tasks:open-db check-in: 182a73b7ce user: mrwellan tags: v1.60 | |
Changes
Modified tasks.scm from [a4b91e5854] to [bff6b1af02].
| ︙ | ︙ | |||
130 131 132 133 134 135 136 137 138 139 140 141 142 143 |
hostname TEXT,
cmdline TEXT,
login_time TIMESTAMP,
logout_time TIMESTAMP DEFAULT -1,
CONSTRAINT clients_constraint UNIQUE (pid,hostname));")
))
(set! *task-db* (cons mdb dbpath))
*task-db*))))
;;======================================================================
;; Server and client management
;;======================================================================
| > | 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 |
hostname TEXT,
cmdline TEXT,
login_time TIMESTAMP,
logout_time TIMESTAMP DEFAULT -1,
CONSTRAINT clients_constraint UNIQUE (pid,hostname));")
))
(sqlite3:execute mdb "DELETE FROM tasks_queue WHERE state='done' AND creation_time < ?;" (- (current-seconds)(* 24 60 60))) ;; remove older than 24 hrs
(set! *task-db* (cons mdb dbpath))
*task-db*))))
;;======================================================================
;; Server and client management
;;======================================================================
|
| ︙ | ︙ |