Megatest

Check-in [98e76b1aca]
Login
Overview
Comment:minor reformatting
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.7001-multi-db-rb01
Files: files | file ages | folders
SHA1: 98e76b1aca86c40e7fdf0c522c9509ce2b65ee39
User & Date: mrwellan on 2022-04-12 19:06:38
Other Links: branch diff | manifest | tags
Context
2022-04-18
12:48
avoided locking db when read-only, changed db:get-keys to use keys:config-get-fields, corrected formatting in list-servers check-in: b34c691e5f user: mmgraham tags: v1.7001-multi-db-rb01
2022-04-12
19:06
minor reformatting check-in: 98e76b1aca user: mrwellan tags: v1.7001-multi-db-rb01
09:08
Turn off db:multi-db-sync calls for now check-in: 7f0aa9d15d user: matt tags: v1.7001-multi-db-rb01
Changes

Modified http-transport.scm from [4a4c885dbb] to [0925a1edaf].

505
506
507
508
509
510
511
512
513
514




515
516
517
518
519
520
521
505
506
507
508
509
510
511



512
513
514
515
516
517
518
519
520
521
522







-
-
-
+
+
+
+







      (mutex-lock! *heartbeat-mutex*)
      (set! last-access *db-last-access*)
      (mutex-unlock! *heartbeat-mutex*)
      
      (if (common:low-noise-print 120 (conc "server running on " iface ":" port))
	  (begin
             (if (not *server-id*)
              (set! *server-id* (server:mk-signature)))
	    (debug:print 0 *default-log-port* "SERVER STARTED: " iface ":" port " AT " (current-seconds) " server-id: " *server-id*)
	    (flush-output *default-log-port*)))
		 (set! *server-id* (server:mk-signature)))
             (debug:print 0 *default-log-port* (current-seconds) (current-directory) (current-process-id) (argv))   
	     (debug:print 0 *default-log-port* "SERVER STARTED: " iface ":" port " AT " (current-seconds) " server-id: " *server-id*)
	     (flush-output *default-log-port*)))
      (if (common:low-noise-print 60 "dbstats")
	  (begin
	    (debug:print 0 *default-log-port* "Server stats:")
	    (db:print-current-query-stats)))
      (let* ((hrs-since-start  (/ (- (current-seconds) server-start-time) 3600)))
	(cond
         ((and *server-run*