Differences From Artifact [a8caddcfa8]:
- File server.scm — part of check-in [52321931b3] at 2014-03-03 21:41:49 on branch multi-transport — Got the rpc server itself starting up (user: matt, size: 5786) [annotate] [blame] [check-ins using]
To Artifact [be86b1fb3b]:
- File server.scm — part of check-in [7e8ac71fc6] at 2014-03-04 23:58:40 on branch multi-transport — not working but a good time to snapshot (user: matt, size: 6041) [annotate] [blame] [check-ins using]
| ︙ | |||
164 165 166 167 168 169 170 | 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 | + + + + + + + + + + + |
(res "NOREPLY"))
(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! *last-db-access* (current-seconds))
(if (equal? *toppath* toppath)
(begin
;; (debug:print-info 2 "login successful")
#t)
(begin
;; (debug:print-info 2 "login failed")
#f))))
|