Index: dbmod.scm ================================================================== --- dbmod.scm +++ dbmod.scm @@ -947,11 +947,11 @@ (lambda (dat) (let ((tblname (car dat)) (count (cdr dat))) (set! tot-count (+ tot-count count)) (if (> count 0) ;; concs are there to prevent "Error: (sprintf) illegal format-string character: #\1" which I don't understand. - (if should-print (debug:print 0 *default-log-port* (format " "(conc tblname)" "(conc count))))))) ;; ~10a ~5a" + (if should-print (debug:print 0 *default-log-port* " "(conc tblname)" "(conc count)))))) ;; ~10a ~5a" (sort (hash-table->alist numrecs)(lambda (a b)(> (cdr a)(cdr b)))))) tot-count)))) (define db:trigger-list (list (list "update_runs_trigger" "CREATE TRIGGER IF NOT EXISTS update_runs_trigger AFTER UPDATE ON runs Index: rmt.scm ================================================================== --- rmt.scm +++ rmt.scm @@ -115,19 +115,19 @@ ;;DOT { edge [style=invis];"case 1" -> "case 2" -> "case 3" -> "case 4" -> "case 5" -> "case 6" -> "case 7" -> "case 8" -> "case 9" -> "case 10" -> "case 11"; } ;; do all the prep locked under the rmt-mutex (mutex-lock! *rmt-mutex*) ;; set up runremote record earlier than the loop below - (if (not area-dat) ;; can remove this one. should never get here. + (if (not *runremote*) ;; can remove this one. should never get here. (begin (set! *runremote* (create-remote-record)) (let* ((server-info (remote-server-info *runremote*))) (if server-info (begin (remote-server-url-set! *runremote* (server:record->url server-info)) (remote-server-id-set! *runremote* (server:record->id server-info))))) - (set! area-dat *runremote*))) ;; new runremote will come from this on next iteration + #;(set! area-dat *runremote*))) ;; new runremote will come from this on next iteration ;; 1. check if server is started IFF cmd is a write OR if we are not on the homehost, store in runremote ;; 2. check the age of the connections. refresh the connection if it is older than timeout-20 seconds. ;; 3. do the query, if on homehost use local access ;;