235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
|
(loop (read-line) inl))))))
(define (server:login toppath area-dat)
(lambda (toppath)
(set! *last-db-access* (current-seconds))
(if (equal? (megatest:area-path area-dat) toppath)
(begin
;; (debug:print-info 2 "login successful")
#t)
(begin
;; (debug:print-info 2 "login failed")
#f))))
(define (server:get-timeout area-dat)
(let ((tmo (configf:lookup (megatest:area-configdat area-dat) "server" "timeout")))
(if (and (string? tmo)
(string->number tmo))
(* 60 60 (string->number tmo))
|
|
|
|
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
|
(loop (read-line) inl))))))
(define (server:login toppath area-dat)
(lambda (toppath)
(set! *last-db-access* (current-seconds))
(if (equal? (megatest:area-path area-dat) toppath)
(begin
(debug:print-info 2 "login successful")
#t)
(begin
(debug:print-info 2 "login failed")
#f))))
(define (server:get-timeout area-dat)
(let ((tmo (configf:lookup (megatest:area-configdat area-dat) "server" "timeout")))
(if (and (string? tmo)
(string->number tmo))
(* 60 60 (string->number tmo))
|