Differences From Artifact [a878389459]:
- File server.scm — part of check-in [7b318f91bd] at 2017-03-27 23:59:53 on branch v1.64 — protected config file call to delete-file with exception handler. Fixed logic on connecting using CMDINFO. Fixed -list-servers and -kill-servers. Turned exception handler back on in portlogger. Removed the addition of a little noise from the server timeout handling in rmt.scm (user: matt, size: 15922) [annotate] [blame] [check-ins using]
To Artifact [0a5d68ff36]:
- File server.scm — part of check-in [2158d4a3b0] at 2017-03-28 01:50:25 on branch v1.64 — Bits of refactoring to simplify rmt.scm (user: matt, size: 16000) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
402 403 404 405 406 407 408 409 410 411 412 413 414 415 |
(if (eof-object? inl)
(case (string->symbol res)
((NOREPLY) #f)
((LOGIN_OK) #t)
(else #f))
(loop (read-line) inl))))))
(define (server:login toppath)
(lambda (toppath)
(set! *db-last-access* (current-seconds)) ;; might not be needed.
(if (equal? *toppath* toppath)
#t
#f)))
| > > | 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 |
(if (eof-object? inl)
(case (string->symbol res)
((NOREPLY) #f)
((LOGIN_OK) #t)
(else #f))
(loop (read-line) inl))))))
;; NOT USED (well, ok, reference in rpc-transport but otherwise not used).
;;
(define (server:login toppath)
(lambda (toppath)
(set! *db-last-access* (current-seconds)) ;; might not be needed.
(if (equal? *toppath* toppath)
#t
#f)))
|
| ︙ | ︙ |