Differences From Artifact [8344cdf37f]:
- File portlogger.scm — part of check-in [5fd84cf5e2] at 2022-12-14 17:36:10 on branch v1.80 — fixed a few crashes in the server log (user: mmgraham, size: 7843) [annotate] [blame] [check-ins using] [more...]
To Artifact [c0a80358a3]:
- File attic/portlogger.scm — part of check-in [57d442213a] at 2023-03-31 21:32:12 on branch v1.80-mbi — More cleanup (user: matt, size: 7891) [annotate] [blame] [check-ins using]
- File portlogger.scm — part of check-in [7060a6d776] at 2023-03-27 18:15:58 on branch v1.80 — Lots of proper use of debugprint and mtargs plus some small cleanup. (user: mrwellan, size: 7891) [annotate] [blame] [check-ins using]
| ︙ | |||
19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | + + | (require-extension (srfi 18) extras tcp s11n) (use sqlite3 srfi-1 posix srfi-69 hostinfo dot-locking z3) (import (prefix sqlite3 sqlite3:)) (declare (unit portlogger)) (declare (uses debugprint)) (declare (uses db)) (import debugprint) ;; lsof -i (define (portlogger:open-db fname) (let* ((avail (tasks:wait-on-journal fname 5 remove: #t)) ;; wait up to about 10 seconds for the journal to go away (exists (common:file-exists? fname)) (db (if avail (sqlite3:open-database fname) |
| ︙ |