Overview
| Comment: | Typo |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | archiving |
| Files: | files | file ages | folders |
| SHA1: |
80e341f6e8b2e4574857c99b6ae8d18a |
| User & Date: | matt on 2012-02-24 00:22:49 |
| Other Links: | branch diff | manifest | tags |
Context
|
2012-02-24
| ||
| 00:44 | Add ability to override hostname check-in: dbc554c75c user: matt tags: archiving | |
| 00:22 | Typo check-in: 80e341f6e8 user: matt tags: archiving | |
| 00:09 | Switch to using ip address instead of host name for rpc check-in: 14b1b076b5 user: matt tags: archiving | |
Changes
Modified server.scm from [440cb8b9ae] to [7ced522a2e].
| ︙ | ︙ | |||
91 92 93 94 95 96 97 |
(rpc:publish-procedure!
'rpc:test-set-log!
(lambda (run-id test-name item-path logf)
(db:test-set-log! db run-id test-name item-path logf)))
(set! *rpc:listener* rpc:listener)
(on-exit (lambda ()
| | | 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 |
(rpc:publish-procedure!
'rpc:test-set-log!
(lambda (run-id test-name item-path logf)
(db:test-set-log! db run-id test-name item-path logf)))
(set! *rpc:listener* rpc:listener)
(on-exit (lambda ()
(sqlite3:execute db "DELETE FROM metadat WHERE var='SERVER' and val=?;" ipaddrstr:port)
(sqlite3:finalize! db)))
(thread-start! th1)
(thread-join! th1))) ;; rpc:server)))
(define (server:find-free-port-and-open port)
(handle-exceptions
exn
|
| ︙ | ︙ |