@@ -139,16 +139,19 @@ "-execute" ;; run the command encoded in the base64 parameter "-step" ":runname" "-target" "-reqtarg" - ":item" - ":runname" + ":runname" + "-runname" ":state" + "-state" ":status" + "-status" "-list-runs" "-testpatt" + "-itempatt" "-setlog" "-set-toplog" "-runstep" "-logpro" "-m" @@ -240,10 +243,16 @@ (if (args:get-arg "-logging")(set! *logging* #t)) (if (debug:debug-mode 3) ;; we are obviously debugging (set! open-run-close open-run-close-no-exception-handling)) +(if (args:get-arg "-itempatt") + (let ((newval (conc (args:get-arg "-testpatt") "/" (args:get-arg "-itempatt")))) + (debug:print 0 "WARNING: -itempatt has been deprecated, please use -testpatt testpatt/itempatt method, new testpatt is "newval) + (hash-table-set! args:arg-hash "-testpatt" newval) + (hash-table-delete! args:arg-hash "-itempatt"))) + ;;====================================================================== ;; Misc general calls ;;====================================================================== (if (args:get-arg "-env2file")