Megatest

       (set! res count))
     mdb
     "SELECT count(id) FROM monitors WHERE last_update < (strftime('%s','now') - 300) AND username=?;"
     (car (user-information (current-user-id))))
    res))

;; 
;; (define (tasks:start-monitor db mdb)
;;   (if (> (tasks:get-num-alive-monitors mdb) 2) ;; have two running, no need for more
;;       (debug:print-info 1 *default-log-port* "Not starting monitor, already have more than two running")
;;       (let* ((megatestdb     (conc *toppath* "/megatest.db"))
;; 	     (monitordbf     (conc (db:dbfile-path #f) "/monitor.db"))
;; 	     (last-db-update 0)) ;; (file-modification-time megatestdb)))
;; 	(task:register-monitor mdb)
;; 	(let loop ((count      0)
;; 		   (next-touch 0)) ;; next-touch is the time where we need to update last_update
;; 	  ;; if the db has been modified we'd best look at the task queue
;; 	  (let ((modtime (file-modification-time megatestdbpath )))
;; 	    (if (> modtime last-db-update)
;; 		(tasks:process-queue db)) ;; BROKEN. mdb last-db-update megatestdb next-touch))
;; 	    ;; WARNING: Possible race conditon here!!
;; 	    ;; should this update be immediately after the task-get-action call above?
;; 	    (if (> (current-seconds) next-touch)
;; 		(begin
;; 		  (tasks:monitors-update mdb)
;; 		  (loop (+ count 1)(+ (current-seconds) 240)))
;; 		(loop (+ count 1) next-touch)))))))
      
;;======================================================================
;; T A S K S   Q U E U E
;;
;;   NOTE:: These operate on task_queue which is in main.db
;;
;;======================================================================

;; remove tasks given by a string of numbers comma separated
(define (tasks:remove-queue-entries dbstruct task-ids)
  (db:with-db
   dbstruct #f #t
   (lambda (db)
     (sqlite3:execute db (conc "DELETE FROM tasks_queue WHERE id IN (" task-ids ");")))))

;; (define (tasks:process-queue dbstruct)
;;   (let* ((task   (tasks:snag-a-task dbstruct))
;; 	 (action (if task (tasks:task-get-action task) #f)))
;;     (if action (print "tasks:process-queue task: " task))
;;     (if action
;; 	(case (string->symbol action)
;; 	  ((run)       (tasks:start-run     dbstruct task))
;; 	  ((remove)    (tasks:remove-runs   dbstruct task))
;; 	  ((lock)      (tasks:lock-runs     dbstruct task))
;; 	  ;; ((monitor)   (tasks:start-monitor db task))
;; 	  #;((rollup)    (tasks:rollup-runs   dbstruct task))
;; 	  ((updatemeta)(tasks:update-meta   dbstruct task))
;; 	  #;((kill)      (tasks:kill-monitors dbstruct task))))))

(define (tasks:tasks->text tasks)
  (let ((fmtstr "~10a~10a~10a~12a~20a~12a~12a~10a"))
    (conc (format #f fmtstr "id" "action" "owner" "state" "target" "runname" "testpatts" "params") "\n"
	  (string-intersperse 
	   (map (lambda (task)
		  (format #f fmtstr

			 param-key state-patt action-patt test-patt)))))

(define (tasks:find-task-queue-records dbstruct target run-name test-patt state-patt action-patt)
  ;; (handle-exceptions
  ;;  exn
  ;;  '()
  ;;  (sqlite3:first-row
  (let ((db  (db:get-db dbstruct))
	(res '()))
    (sqlite3:for-each-row 
     (lambda (a . b)
       (set! res (cons (cons a b) res)))
     db "SELECT id,action,owner,state,target,name,testpatt,keylock,params FROM tasks_queue 
           WHERE
              target = ? AND name = ? AND state LIKE ? AND action LIKE ? AND testpatt LIKE ?;"