Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -2197,15 +2197,19 @@
 					    (if not-in 
 						" NOT IN ('"
 						" IN ('") )
 					(string-intersperse statuses "','")
 					"')")))
+	     (interim-qry       (conc " AND " (if not-in "NOT " "") "( ( state='COMPLETED' AND " statuses-qry " ) "
+				      (if states-qry
+					  (conc (if not-in " AND " " OR ") states-qry " ) ")
+					  "")))
 	     (states-statuses-qry 
 	      (cond 
 	       ((and states-qry statuses-qry)
 		(case mode
-		  ((dashboard)(conc " AND " (if not-in "NOT " "") "( ( state='COMPLETED' AND " statuses-qry " ) OR " states-qry " ) "))
+		  ((dashboard) interim-qry)
 		  (else       (conc " AND ( " states-qry " AND " statuses-qry " ) "))))
 	       (states-qry  
 		(conc " AND " states-qry))
 	       (statuses-qry 
 		(conc " AND " statuses-qry))
@@ -2287,17 +2291,10 @@
 		   test-id)))
     res))
 
 ;; get a useful subset of the tests data (used in dashboard
 ;; use db:mintest-get-{id ,run_id,testname ...}
-;; 
-(define (db:get-tests-for-runs-mindata dbstruct run-ids testpatt states statuses not-in)
-  (debug:print 0 "ERROR: BROKN!")
-  ;; (db:get-tests-for-runs dbstruct run-ids testpatt states statuses not-in: not-in qryvals: "id,run_id,testname,state,status,event_time,item_path"))
-)
-
-;; get a useful subset of the tests data (used in dashboard
 ;;
 (define (db:get-tests-for-run-mindata dbstruct run-id testpatt states statuses not-in)
   (db:get-tests-for-run dbstruct run-id testpatt states statuses #f #f not-in #f #f "id,run_id,testname,state,status,event_time,item_path" #f))
 
 ;; do not use.

Index: sretrieve.scm
==================================================================
--- sretrieve.scm
+++ sretrieve.scm
@@ -56,10 +56,11 @@
   ls                     : list contents of target area
   get <relversion>       : retrieve data for release <version>
     -m \"message\"       : why retrieved?
   cp <relative path>     : copy file to current directory 
   log                    : get listing of recent downloads
+  shell                  : start a shell-like interface
 
 Part of the Megatest tool suite.
 Learn more at http://www.kiatoa.com/fossils/megatest
 
 Version: " megatest-fossil-hash)) ;; "
@@ -411,10 +412,55 @@
 
 (define (sretrieve:stderr-print . args)
   (with-output-to-port (current-error-port)
     (lambda ()
       (apply print args))))
+
+;;======================================================================
+;; SHELL
+;;======================================================================
+
+(define (toplevel-command . args) #f)
+(define (sretrieve:shell)
+  (use readline)
+  (let* ((path      '())
+	 (prompt    "> ")
+	 (top-areas '("mrwellan" "pjhatwal" "bjbarcla" "ritikaag" "jmoon18"))
+	 (iport     (make-readline-port prompt)))
+    (install-history-file) ;;  [homedir] [filename] [nlines])
+    (with-input-from-port iport
+      (lambda ()
+	(let loop ((inl (read-line)))
+	  (if (not (or (eof-object? inl)
+		       (equal? inl "exit")))
+	      (let* ((parts (string-split inl))
+		     (cmd   (if (null? parts) #f (car parts))))
+		(if (not cmd)
+		    (loop (read-line))
+		    (case (string->symbol cmd)
+		      ((cd)
+		       (if (> (length parts) 1) ;; have a parameter
+			   (set! path (append path (string-split (cadr parts)))) ;; not correct for relative paths
+			   (set! path '())))
+		      ((ls)
+		       (let* ((thepath (if (> (length parts) 1) ;; have a parameter
+					   (cdr parts)
+					   path))
+			      (plen    (length thepath)))
+			 (cond
+			  ((null? thepath)
+			   (print (string-intersperse top-areas " ")))
+			  ((and (< plen 2)
+				(member (car thepath) top-areas))
+			   (system (conc "ls /p/fdk/gwa/" (car thepath))))
+			  (else ;; have a long path
+			   ;; check for access rights here
+			   (system (conc "ls /p/fdk/gwa/" (string-intersperse thepath "/")))))))
+		      (else 
+		       (print "Got command: " inl))))
+		(loop (read-line)))))))))
+    
 
 ;;======================================================================
 ;; MAIN
 ;;======================================================================
 
@@ -558,14 +604,16 @@
 				     (print "Logs : ")
 				     (query (for-each-row
 					     (lambda (row)
 					       (apply print (intersperse row " | "))))
 					    (sql db "SELECT * FROM actions")))))
+	((shell)
+	 (sretrieve:shell))
 	(else
 	 (print "ERROR: Unrecognised command. Try \"sretrieve help\""))))
      ;; multi-word commands
      ((null? rema)(print sretrieve:help))
      ((>= (length rema) 2)
       (apply sretrieve:process-action configdat (car rema)(cdr rema)))
      (else (debug:print 0 "ERROR: Unrecognised command. Try \"sretrieve help\"")))))
 
 (main)