@@ -37,10 +37,11 @@
                                 target TEXT DEFAULT '',
                                 name TEXT DEFAULT '',
                                 test TEXT DEFAULT '',
                                 item TEXT DEFAULT '',
                                 keylock TEXT,
+                                params TEXT,
                                 creation_time TIMESTAMP,
                                 execution_time TIMESTAMP);")
 	  (sqlite3:execute tdb "CREATE TABLE IF NOT EXISTS monitors (id INTEGER PRIMARY KEY,
                                 pid INTEGER,
                                 start_time TIMESTAMP,
@@ -84,19 +85,20 @@
      "SELECT count(id) FROM monitors WHERE last_update < (strftime('%s','now') - 300) AND username=?;"
      (car (user-information (current-user-id))))
     res))
 
 ;; register a task
-(define (tasks:add tdb action owner target runname test item)
-  (sqlite3:execute tdb "INSERT INTO tasks_queue (action,owner,state,target,name,test,item,creation_time,execution_time)
+(define (tasks:add tdb action owner target runname test item params)
+  (sqlite3:execute tdb "INSERT INTO tasks_queue (action,owner,state,target,name,test,item,params,creation_time,execution_time)
                        VALUES (?,?,'new',?,?,?,?,strftime('%s','now'),0);" 
 		   action
 		   owner
 		   target
 		   runname
 		   test
-		   item))
+		   item
+		   (if params params "")))
 
 (define (keys:key-vals-hash->target keys key-params)
   (let ((tmp (hash-table-ref/default key-params (vector-ref (car keys) 0) "")))
     (if (> (length keys) 1)
 	(for-each (lambda (key)
@@ -131,11 +133,11 @@
 
     (sqlite3:for-each-row
      (lambda (id . rem)
        (set! res (apply vector id rem)))
      tdb
-     "SELECT id,action,owner,state,target,name,test,item,creation_time,execution_time FROM tasks_queue WHERE keylock=? ORDER BY execution_time ASC LIMIT 1;" keytxt)
+     "SELECT id,action,owner,state,target,name,test,item,params,creation_time,execution_time FROM tasks_queue WHERE keylock=? ORDER BY execution_time ASC LIMIT 1;" keytxt)
     (if res ;; yep, have work to be done
 	(begin
 	  (sqlite3:execute tdb "UPDATE tasks_queue SET state='inprogress',execution_time=strftime('%s','now') WHERE id=?;"
 			   (tasks:task-get-id res))
 	  res)
@@ -158,11 +160,11 @@
   (let ((res '()))
     (sqlite3:for-each-row
      (lambda (id . rem)
        (set! res (cons (apply vector id rem) res)))
      tdb
-     (conc "SELECT id,action,owner,state,target,name,test,item,creation_time,execution_time 
+     (conc "SELECT id,action,owner,state,target,name,test,item,params,creation_time,execution_time 
                FROM tasks_queue "
                ;; WHERE  
                ;;   state IN " statesstr " AND 
 	       ;;   action IN " actionsstr 
 	   " ORDER BY creation_time DESC;"))
@@ -217,12 +219,12 @@
      "SELECT id,pid,strftime('%m/%d/%Y %H:%M',datetime(start_time,'unixepoch'),'localtime'),strftime('%m/%d/%Y %H:%M:%S',datetime(last_update,'unixepoch'),'localtime'),hostname,username FROM monitors ORDER BY last_update ASC;")
     (reverse res)
     ))
 
 (define (tasks:tasks->text tasks)
-  (let ((fmtstr "~10a~10a~10a~12a~20a~12a~12a~12a"))
-    (conc (format #f fmtstr "id" "action" "owner" "state" "target" "runname" "testpatts" "itempatts") "\n"
+  (let ((fmtstr "~10a~10a~10a~12a~20a~12a~12a~12a~10a"))
+    (conc (format #f fmtstr "id" "action" "owner" "state" "target" "runname" "testpatts" "itempatts" "params") "\n"
 	  (string-intersperse 
 	   (map (lambda (task)
 		  (format #f fmtstr
 			  (tasks:task-get-id     task)
 			  (tasks:task-get-action task)
@@ -229,11 +231,12 @@
 			  (tasks:task-get-owner  task)
 			  (tasks:task-get-state  task)
 			  (tasks:task-get-target task)
 			  (tasks:task-get-name   task)
 			  (tasks:task-get-test   task)
-			  (tasks:task-get-item   task)))
+			  (tasks:task-get-item   task)
+			  (tasks:task-get-params task)))
 		tasks) "\n"))))
    
 (define (tasks:monitors->text-table monitors)
   (let ((fmtstr "~4a~8a~20a~20a~10a~10a"))
     (conc (format #f fmtstr "id" "pid" "start time" "last update" "hostname" "user") "\n"
@@ -283,10 +286,12 @@
 ;;       that no task gets run in parallel.
 
 (define (tasks:start-run db tdb task)
   (let ((flags (make-hash-table)))
     (hash-table-set! flags "-rerun" "NOT_STARTED")
+    (if (not (string=? (tasks:task-get-params task) ""))
+	(hash-table-set! flags "-
     (print "Starting run " task)
     ;; sillyness, just call the damn routine with the task vector and be done with it. FIXME SOMEDAY
     (runs:run-tests db
 		    (tasks:task-get-target task)
 		    (tasks:task-get-name   task)