Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -75,10 +75,11 @@
 ;;
 (define *user-hash-data* (make-hash-table))
 
 (define *db-keys* #f)
 
+(define *pkts-info*    (make-hash-table)) ;; store stuff like the last parent here
 (define *configinfo*   #f)   ;; raw results from setup, includes toppath and table from megatest.config
 (define *runconfigdat* #f)   ;; run configs data
 (define *configdat*    #f)   ;; megatest.config data
 (define *configstatus* #f)   ;; status of data; 'fulldata : all processing done, #f : no data yet, 'partialdata : partial read done
 (define *toppath*      #f)
@@ -2319,23 +2320,26 @@
 ;;======================================================================
 ;; Manage pkts, used in servers, tests and likely other contexts so put
 ;; in common
 ;;======================================================================
 
-(define common:pkt-spec
-  '((server . ((action    . a)
-	       (pid       . d)
-	       (ipaddr    . i)
-	       (port      . p)))
-    			  
-    (test   . ((cpuuse    . c)
-	       (diskuse   . d)
-	       (item-path . i)
-	       (runname   . r)
-	       (state     . s)
-	       (target    . t)
-	       (status    . u)))))
+(define common:pkts-spec
+  '((default . ((parent    . P)))
+    (server  . ((action    . a)
+		(pid       . d)
+		(ipaddr    . i)
+		(port      . p)
+		(parent    . P)))
+    			  
+    (test    . ((cpuuse    . c)
+		(diskuse   . d)
+		(item-path . i)
+		(runname   . r)
+		(state     . s)
+		(target    . t)
+		(status    . u)
+		(parent    . P)))))
 
 (define (common:get-pkts-dirs mtconf use-lt)
   (let* ((pktsdirs-str (or (configf:lookup mtconf "setup"  "pktsdirs")
 			   (and use-lt
 				(conc *toppath* "/lt/.pkts"))))
@@ -2342,10 +2346,31 @@
 	 (pktsdirs  (if pktsdirs-str
 			(string-split pktsdirs-str " ")
 			#f)))
     pktsdirs))
 
+(define (common:save-pkt pktalist-in mtconf use-lt)
+  (let* ((parent   (hash-table-ref/default *pkts-info* 'last-parent #f))
+	 (pktalist (if parent
+		       (cons `(parent . ,parent)
+			     pktalist-in)
+		       pktalist-in)))
+    (let-values (((uuid pkt)
+		  (alist->pkt pktalist common:pkts-spec)))
+      (hash-table-set! *pkts-info* 'last-parent uuid)
+      (let ((pktsdir (or (hash-table-ref/default *pkts-info* 'pkts-dir #f)
+			 (let* ((pktsdirs (common:get-pkts-dirs mtconf use-lt))
+			       (pktsdir   (car pktsdirs))) ;; assume it is there
+			   (hash-table-set! *pkts-info* 'pkts-dir pktsdir)
+			   pktsdir))))
+	(if (not (file-exists? pktsdir))
+	    (create-directory pktsdir #t))
+	(with-output-to-file
+	    (conc pktsdir "/" uuid ".pkt")
+	  (lambda ()
+	    (print pkt)))))))
+	
 (define (common:with-queue-db mtconf proc #!key (use-lt #f)(toppath-in #f))
   (let* ((pktsdirs (common:get-pkts-dirs mtconf use-lt))
 	 (pktsdir  (if pktsdirs (car pktsdirs) #f))
 	 (toppath  (or (configf:lookup mtconf "scratchdat" "toppath")
 		       toppath-in))

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -54,10 +54,14 @@
 ;; all routes though here end in exit ...
 ;;
 ;; start_server
 ;;
 (define (server:launch run-id transport-type)
+  (common:save-pkt `((action . start)
+		     (ptype  . server)
+		     (pid    . (current-process-id)))
+		   *configdat* #t)
   (case transport-type
     ((http)(http-transport:launch))
     ;;((nmsg)(nmsg-transport:launch run-id))
     ((rpc)  (rpc-transport:launch run-id))
     (else (debug:print-error 0 *default-log-port* "unknown server type " transport-type))))