Overview
| Comment: | Turn off runremote reset of 180 sec |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.70 | v1.7002 |
| Files: | files | file ages | folders |
| SHA1: |
27718f7cf5b6fe6a94ff821b8948b114 |
| User & Date: | matt on 2022-06-08 20:09:49 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-06-10
| ||
| 10:49 | Fixed db:multi-db-sync when /tmp dbs do not exist check-in: 6ddbf1276a user: mmgraham tags: v1.70 | |
|
2022-06-08
| ||
| 20:09 | Turn off runremote reset of 180 sec check-in: 27718f7cf5 user: matt tags: v1.70, v1.7002 | |
| 18:36 | Guarded against \*runremote*\ being \#f check-in: 9b7a0e6fb7 user: mmgraham tags: v1.70 | |
Changes
Modified rmt.scm from [f2baad3376] to [fa25f8e8fb].
| ︙ | ︙ | |||
118 119 120 121 122 123 124 |
;; ensure we have a homehost record
(if (not (pair? (remote-hh-dat runremote))) ;; not on homehost
(thread-sleep! 0.1) ;; since we shouldn't get here, delay a little
(remote-hh-dat-set! runremote (common:get-homehost)))
;;(print "BB> readonly-mode is "readonly-mode" dbfile is "dbfile)
(cond
| | | 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 |
;; ensure we have a homehost record
(if (not (pair? (remote-hh-dat runremote))) ;; not on homehost
(thread-sleep! 0.1) ;; since we shouldn't get here, delay a little
(remote-hh-dat-set! runremote (common:get-homehost)))
;;(print "BB> readonly-mode is "readonly-mode" dbfile is "dbfile)
(cond
#;((> (- (current-seconds)(remote-connect-time runremote)) 180) ;; reconnect to server every 180 seconds
(debug:print 0 *default-log-port* "Forcing reconnect to server(s) due to 180 second timeout.")
(set! *runremote* #f)
;; BUG: close-connections should go here?
(mutex-unlock! *rmt-mutex*)
(rmt:send-receive cmd rid params attemptnum: 1 area-dat: area-dat))
;;DOT EXIT;
|
| ︙ | ︙ |
Added testlocking/justtest.scm version [59ddbd6a63].
> > > > > > > > > | 1 2 3 4 5 6 7 8 9 | (print "Starting at "(current-seconds)) (dbfile:with-simple-file-lock "justtesting.lock" (lambda () (print "got the lock at "(current-seconds)"!"))) (print "Done at: " (current-seconds)) (exit) |
Added testlocking/testlock.sh version [d778a78ed8].
> > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 |
#!/bin/bash
HRS=$(date +%H)
MINS=$(($(date +%M) + 1))
if [[ $MINS -lt 10 ]];then
MINS="0${MINS}"
fi
THETIME="$HRS:$MINS"
echo "THETIME=$THETIME"
for x in a b c d e f g h i j;do
echo "megatest -load justtest.scm > $x.log" | at $THETIME
done
|