Megatest

(if (args:get-arg "-kill-runs")
    (general-run-call 
     "-kill-runs"
     "kill runs"
     (lambda (target runname keys keyvals)
       (operate-on 'kill-runs mode: #f)

       (operate-on 'set-state-status
		   state: (common:args-get-state)
		   status: (common:args-get-status)
		   new-state-status: (args:get-arg "-set-state-status")


                   mode: #f) ;; kill-req on running,launched,remotehoststart things, 
       )))

(if (args:get-arg "-remove-runs")
    (general-run-call 
     "-remove-runs"
     "remove runs"
     (lambda (target runname keys keyvals)