Overview
| Comment: | Couple unused functions From: 7ef4e75485c86fd03913be6075df8dbc5a266771 User: matt |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6569-diet-3 |
| Files: | files | file ages | folders |
| SHA1: |
0a00e8266dfd542d7a2bf150c87c099c |
| User & Date: | matt on 2021-02-25 21:48:29 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-02-25
| ||
| 21:48 | Missed couple leftovers in dashboard.scm From: f32c8343a23eefbfb0303043805d677ab0f3c5d9 User: mrwellan check-in: f5540d07c2 user: matt tags: v1.6569-diet-3 (unpublished) | |
| 21:48 | Couple unused functions From: 7ef4e75485c86fd03913be6075df8dbc5a266771 User: matt check-in: 0a00e8266d user: matt tags: v1.6569-diet-3 (unpublished) | |
| 21:48 | Restoring test_records.scm, not quite able to get rid of it yet. From: 24a028a1722528811637cd277f1d911b6ce6b79b User: matt check-in: 14bb15d0a9 user: matt tags: v1.6569-diet-3 (unpublished) | |
Changes
Modified server.scm from [52889afebe] to [d6e0b7d15e].
| ︙ | ︙ | |||
509 510 511 512 513 514 515 |
(if (eof-object? inl)
(case (string->symbol res)
((NOREPLY) #f)
((LOGIN_OK) #t)
(else #f))
(loop (read-line) inl))))))
| < < < < < < < < < | 509 510 511 512 513 514 515 516 517 518 519 520 521 522 |
(if (eof-object? inl)
(case (string->symbol res)
((NOREPLY) #f)
((LOGIN_OK) #t)
(else #f))
(loop (read-line) inl))))))
;; timeout is hms string: 1h 5m 3s, default is 1 minute
;;
(define (server:expiration-timeout)
(let ((tmo (configf:lookup *configdat* "server" "timeout")))
(if (and (string? tmo)
(common:hms-string->seconds tmo)) ;; BUG: hms-string->seconds is broken, if given "10" returns 0. Also, it doesn't belong in this logic unless the string->number is changed below
(* 3600 (string->number tmo))
|
| ︙ | ︙ |