Megatest

    ;; 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
     #;((> (- (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;

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

#!/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