Overview
| Comment: | Removed instrumentation |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | monitor-cleanup |
| Files: | files | file ages | folders |
| SHA1: |
e7e1e90a39143b3e00de67615241a123 |
| User & Date: | matt on 2012-11-01 01:41:15 |
| Other Links: | branch diff | manifest | tags |
Context
|
2012-11-01
| ||
| 11:16 | Tweaked server pinging to use contexts. Didn't seem to help but keeping as it is probably the right thing to do check-in: 9838452f20 user: mrwellan tags: monitor-cleanup | |
| 01:41 | Removed instrumentation check-in: e7e1e90a39 user: matt tags: monitor-cleanup | |
| 01:16 | Pinging servers almost working, have finalizer issues check-in: e06923ca5c user: matt tags: monitor-cleanup | |
Changes
Modified server.scm from [326eb16dfb] to [6599df07df].
| ︙ | ︙ | |||
94 95 96 97 98 99 100 | (> (+ *last-db-access* 60)(current-seconds))) (begin (debug:print-info 0 "Server continuing, tests running: " numrunning ", seconds since last db access: " (- (current-seconds) *last-db-access*)) (loop 0))) (begin (debug:print-info 0 "Starting to shutdown the server.") ;; need to delete only *my* server entry (future use) | > | | < | 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 |
(> (+ *last-db-access* 60)(current-seconds)))
(begin
(debug:print-info 0 "Server continuing, tests running: " numrunning ", seconds since last db access: " (- (current-seconds) *last-db-access*))
(loop 0)))
(begin
(debug:print-info 0 "Starting to shutdown the server.")
;; need to delete only *my* server entry (future use)
(set! *time-to-exit* #t)
(open-run-close tasks:server-deregister-self tasks:open-db)
(thread-sleep! 5)
(debug:print-info 0 "Max cached queries was " *max-cache-size*)
(debug:print-info 0 "Server shutdown complete. Exiting")
(exit))))))
(define (server:find-free-port-and-open host s port #!key (trynum 50))
(let ((s (if s s (make-socket 'rep)))
(p (if (number? port) port 5555)))
(handle-exceptions
exn
|
| ︙ | ︙ |
Modified tasks.scm from [2d9a79950e] to [b09182cfe4].
| ︙ | ︙ | |||
127 128 129 130 131 132 133 |
(best #f))
(sqlite3:for-each-row
(lambda (id hostname port)
(set! res (cons (list hostname port) res))
(debug:print-info 1 "Found " hostname ":" port))
mdb
"SELECT id,hostname,port FROM servers WHERE state='live' ORDER BY start_time DESC LIMIT 1;")
| | | | 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 |
(best #f))
(sqlite3:for-each-row
(lambda (id hostname port)
(set! res (cons (list hostname port) res))
(debug:print-info 1 "Found " hostname ":" port))
mdb
"SELECT id,hostname,port FROM servers WHERE state='live' ORDER BY start_time DESC LIMIT 1;")
;; (print "res=" res)
(if (null? res) #f
(let loop ((hed (car res))
(tal (cdr res)))
;; (print "hed=" hed ", tal=" tal)
(let* ((host (car hed))
(port (cadr hed))
(ping-res (server:ping host port)))
(if ping-res hed
;; remove defunct server from table
(begin
(open-run-close tasks:server-deregister tasks:open-db host port: port)
|
| ︙ | ︙ |