Overview
| Comment: | Switch to using ip address instead of host name for rpc |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | archiving |
| Files: | files | file ages | folders |
| SHA1: |
14b1b076b573510aa3547a55860c94bf |
| User & Date: | matt on 2012-02-24 00:09:10 |
| Other Links: | branch diff | manifest | tags |
Context
|
2012-02-24
| ||
| 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 | |
| 00:02 | Corrected typo check-in: 22a0698c7c user: matt tags: archiving | |
Changes
Modified server.scm from [172fb1d317] to [440cb8b9ae].
| ︙ | ︙ | |||
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=?;" ipaddr:port)
(sqlite3:finalize! db)))
(thread-start! th1)
(thread-join! th1))) ;; rpc:server)))
(define (server:find-free-port-and-open port)
(handle-exceptions
exn
|
| ︙ | ︙ |