Index: archive-inc.scm
==================================================================
--- archive-inc.scm
+++ archive-inc.scm
@@ -22,11 +22,11 @@
 ;; 
 ;;======================================================================
 
 ;; NOT CURRENTLY USED
 ;;
-#;(define (archive:main linktree target runname testname itempath options)
+(define (archive:main linktree target runname testname itempath options)
   (let ((testdir (conc linktree "/" target "/" runname "/" testname "/" itempatt))
 	(flavor  'plain) ;; type of machine to run jobs on
 	(maxload 1.5)   ;; max allowed load for this work
 	(adisks  (archive:get-archive-disks)))
     ;; get testdir size

Index: launch-inc.scm
==================================================================
--- launch-inc.scm
+++ launch-inc.scm
@@ -739,11 +739,15 @@
           ;;(bb-check-path msg: "launch:execute post block 42")
 	  (set-item-env-vars itemdat)
           ;;(bb-check-path msg: "launch:execute post block 43")
           (let ((blacklist (configf:lookup *configdat* "setup" "blacklistvars")))
             (if blacklist
-                (save-environment-as-files "megatest" ignorevars: (string-split blacklist))
+		(let ((vars (string-split blacklist)))
+		  (save-environment-as-files "megatest" ignorevars: vars)
+		  (for-each (lambda (var)
+			      (unsetenv var))
+			    vars))
                 (save-environment-as-files "megatest")))
           ;;(bb-check-path msg: "launch:execute post block 44")
 	  ;; open-run-close not needed for test-set-meta-info
 	  ;; (tests:set-full-meta-info #f test-id run-id 0 work-area)
 	  ;; (tests:set-full-meta-info test-id run-id 0 work-area)

Index: runs-inc.scm
==================================================================
--- runs-inc.scm
+++ runs-inc.scm
@@ -1641,11 +1641,11 @@
 	  (loop (car reg)(cdr reg) '() reruns))
 	 (else
           (debug:print-info 4 *default-log-port* "cond branch - "  "rtq-9")
 	  (debug:print-info 4 *default-log-port* "Exiting loop with...\n  hed=" hed "\n  tal=" tal "\n  reruns=" reruns))
 	 ))) ;; end loop on sorted test names
-    ;; this is the point where everything is launced and now you can mark the run in metadata table as all launced 
+    ;; this is the point where everything is launched and now you can mark the run in metadata table as all launched 
     (rmt:set-var (conc "lunch-complete-" run-id) "yes")
   
     ;; now *if* -run-wait we wait for all tests to be done
     ;; Now wait for any RUNNING tests to complete (if in run-wait mode)
     (thread-sleep! 10) ;; I think there is a race condition here. Let states/statuses settle
@@ -1861,15 +1861,27 @@
 			(configf:lookup test-conf "skip" "prevrunning"))
 		   ;; run-ids = #f means *all* runs
 		   (let ((running-tests (rmt:get-tests-for-runs-mindata #f full-test-name '("RUNNING" "REMOTEHOSTSTART" "LAUNCHED") '() #f)))
 		     (if (not (null? running-tests)) ;; have to skip 
 			 (set! skip-test "Skipping due to previous tests running"))))
+
 		  ((and skip-check
 			(configf:lookup test-conf "skip" "fileexists"))
 		   (if (common:file-exists? (configf:lookup test-conf "skip" "fileexists"))
 		       (set! skip-test (conc "Skipping due to existance of file " (configf:lookup test-conf "skip" "fileexists")))))
+
 		  ((and skip-check
+			(configf:lookup test-conf "skip" "filenotexists"))
+		   (if (not (common:file-exists? (configf:lookup test-conf "skip" "filenotexists")))
+		       (set! skip-test (conc "Skipping due to non existance of file " (configf:lookup test-conf "skip" "filenotexists")))))
+		 
+                  ((and skip-check
+			(configf:lookup test-conf "skip" "script"))
+		   (if (= (system (configf:lookup test-conf "skip" "script")) 0)
+                        (set! skip-test (conc "Skipping due to zero return value of script " (configf:lookup test-conf "skip" "script")))))
+      
+                  ((and skip-check
 			(configf:lookup test-conf "skip" "rundelay"))
 		   ;; run-ids = #f means *all* runs
 		   (let* ((numseconds      (common:hms-string->seconds (configf:lookup test-conf "skip" "rundelay")))
 			  (running-tests   (rmt:get-tests-for-runs-mindata #f full-test-name '("RUNNING" "REMOTEHOSTSTART" "LAUNCHED") '() #f))
 			  (completed-tests (rmt:get-tests-for-runs-mindata #f full-test-name '("COMPLETED" "INCOMPLETE") '("PASS" "FAIL" "ABORT") #f)) ;; ironically INCOMPLETE is same as COMPLETED in this contex