Megatest

Check-in [c33c21d249]
Login
Overview
Comment:Couple unused functions From: 7ef4e75485c86fd03913be6075df8dbc5a266771 User: matt
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.6569-diet-2
Files: files | file ages | folders
SHA1: c33c21d24915107fa71aab6de36afec7c6a2d0de
User & Date: matt on 2021-02-25 21:41:46
Other Links: branch diff | manifest | tags
Context
2021-02-25
21:41
Restoring test_records.scm, not quite able to get rid of it yet. From: 24a028a1722528811637cd277f1d911b6ce6b79b User: matt check-in: 4fa946a714 user: matt tags: v1.6569-diet-2 (unpublished)
21:41
Couple unused functions From: 7ef4e75485c86fd03913be6075df8dbc5a266771 User: matt check-in: c33c21d249 user: matt tags: v1.6569-diet-2 (unpublished)
21:41
Missed couple leftovers in dashboard.scm From: f32c8343a23eefbfb0303043805d677ab0f3c5d9 User: mrwellan check-in: 4bbc2c8d44 user: matt tags: v1.6569-diet-2 (unpublished)
Changes

Modified server.scm from [5b645d5dff] to [b95226e91d].

546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
546
547
548
549
550
551
552









553
554
555
556
557
558
559







-
-
-
-
-
-
-
-
-







       (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)))

;; 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))