@@ -226,11 +226,12 @@
                             will substitute %s for the sheet name in generating 
                             multiple sheets)
   -o                      : output file for refdb2dat (defaults to stdout)
   -archive cmd            : archive runs specified by selectors to one of disks specified
                             in the [archive-disks] section.
-                            cmd: keep-html, restore, save, save-remove, get (use -dest to set destination)
+                            cmd: keep-html, restore, save, save-remove, get (use 
+                            -dest to set destination), -include path1,path2... to get or save specific files
   -generate-html          : create a simple html dashboard for browsing your runs
   -generate-html-structure  : create a top level html veiw to list targets/runs and a Run view within each run directory.  
   -list-run-time          : list time requered to complete runs. It supports following switches
                             -run-patt <patt> -target-patt <patt> -dumpmode <csv,json,plain-text>
   -list-test-time	   : list time requered to complete each test in a run. It following following arguments
@@ -330,13 +331,18 @@
 
                         ;; move runs stuff here
                         "-remove-keep"           
 			"-set-run-status"
 			"-age"
+
+			;; archive 
 			"-archive"
 			"-actions"
 			"-precmd"
+			"-include"
+			"-exclude-rx"
+			"-exclude-rx-from"
 			
 			"-debug" ;; for *verbosity* > 2
 			"-create-test"
 			"-override-timeout"
 			"-test-files"  ;; -test-paths is for listing all
@@ -506,13 +512,19 @@
   (if start-watchdog
       (thread-start! *watchdog*)))
 
 
 ;; bracket open-output-file with code to make leading directory if it does not exist and handle exceptions
-(define (open-logfile logpath)
+(define (open-logfile logpath-in)
   (condition-case
-   (let* ((log-dir (or (pathname-directory logpath) ".")))
+   (let* ((log-dir (or (pathname-directory logpath-in) "."))
+	  (fname   (pathname-strip-directory logpath-in))
+	  (logpath (if (> (string-length fname) 250)
+		       (let ((newlogf (conc log-dir "/" (common:get-signature fname) ".log")))
+			 (debug:print 0 *default-log-port* "WARNING: log file " logpath-in " path too long, converted to " newlogf)
+			 newlogf)
+		       logpath-in)))
      (if (not (directory-exists? log-dir))
          (system (conc "mkdir -p " log-dir)))
      (open-output-file logpath))
    (exn ()
         (debug:print-error 0 *default-log-port* "Could not open log file for write: "logpath)