Megatest

;; Always use two digit decimal
;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00..

(declare (unit megatest-version))

(define megatest-version 1.52)
(define megatest-version 1.5201)

	    (loop (+ count 1)))
	
	;; NOTE: Get rid of this mechanism! It really is not needed...
	(open-run-close tasks:server-update-heartbeat tasks:open-db (car server-info))
      
	;; (if ;; (or (> numrunning 0) ;; stay alive for two days after last access
	(if (> (+ *last-db-access* 
		  ;; (* 48 60 60)    ;; 48 hrs
		  (* 50 60 60)    ;; 48 hrs
		  ;; 60              ;; one minute
		  (* 60 60)       ;; one hour
		  ;; (* 60 60)       ;; one hour
		  )
	       (current-seconds))
	    (begin
	      (debug:print-info 2 "Server continuing, seconds since last db access: " (- (current-seconds) *last-db-access*))
	      (loop 0))
	    (begin
	      (debug:print-info 0 "Starting to shutdown the server.")