Overview
| Comment: | Removed attempt to exit server on handler failure. It did not seem to be working. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
47cfd09de72e606e756d98263628673d |
| User & Date: | matt on 2023-05-22 05:04:22 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-05-22
| ||
| 06:13 | Turned back on the server exit on transport fail. Few other changes. check-in: fc272da6d4 user: matt tags: v1.80 | |
| 05:04 | Removed attempt to exit server on handler failure. It did not seem to be working. check-in: 47cfd09de7 user: matt tags: v1.80 | |
|
2023-05-21
| ||
| 20:44 | Check for sync in progress before even launching megatest -db2db check-in: 4579b102a3 user: matt tags: v1.80 | |
Changes
Modified dbmod.scm from [6d9a7a8b67] to [0bbb55895a].
| ︙ | ︙ | |||
206 207 208 209 210 211 212 |
(dbr:dbstruct-dbtmpname-set! dbstruct tmpdb)
(dbr:dbstruct-dbfname-set! dbstruct dbfname)
(dbr:dbstruct-sync-proc-set! dbstruct
(lambda (last-update)
(if *sync-in-progress*
(debug:print 3 *default-log-port* "WARNING: overlapping calls to sync to disk")
(let* ((sync-cmd (conc "megatest -db2db -from "tmpdb" -to "dbfullname"&"))
| | | 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 |
(dbr:dbstruct-dbtmpname-set! dbstruct tmpdb)
(dbr:dbstruct-dbfname-set! dbstruct dbfname)
(dbr:dbstruct-sync-proc-set! dbstruct
(lambda (last-update)
(if *sync-in-progress*
(debug:print 3 *default-log-port* "WARNING: overlapping calls to sync to disk")
(let* ((sync-cmd (conc "megatest -db2db -from "tmpdb" -to "dbfullname"&"))
(synclock-file (conc dbfullname".lock"))
(synclock-mod-time (if (file-exists? synclock-file)
(handle-exceptions
exn
#f
(file-modification-time synclock-file))
#f))
(thethread (lambda ()
|
| ︙ | ︙ |
Modified tcp-transportmod.scm from [02829c3b33] to [217673e266].
| ︙ | ︙ | |||
793 794 795 796 797 798 799 | (let ((res (handle-exceptions exn (let* ((errdat (condition->list exn))) (set! exn-result errdat) (debug:print 0 *default-log-port* "ERROR: handler exception, these are bad, will exit in five seconds.") (pp errdat *default-log-port*) ;; these are always bad, set up an exit thread | | | 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 | (let ((res (handle-exceptions exn (let* ((errdat (condition->list exn))) (set! exn-result errdat) (debug:print 0 *default-log-port* "ERROR: handler exception, these are bad, will exit in five seconds.") (pp errdat *default-log-port*) ;; these are always bad, set up an exit thread #;(thread-start! (make-thread (lambda () (thread-sleep! 5) (exit)))) #f) (handler indat) ;; this is the proc being called by the remote client ))) (set! result res))))) (full-result (list result exn-result (if (equal? stdout-result "") #f stdout-result)))) |
| ︙ | ︙ |