Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -118,10 +118,14 @@
    db                        : database utilities
    areas, contours, setup    : show areas, contours or setup section from megatest.config
 
 Contour actions:
    process                   : runs import, rungen and dispatch 
+
+Trigger propagation actions:
+   tsend a=b,c=d...          : send trigger info to all recpients in the [listeners] section
+   tlisten -port N           : listen for trigger info on port N
 			     
 Selectors 		     
   -immediate                 : apply this action immediately, default is to queue up actions
   -area areapatt1,area2...   : apply this action only to the specified areas
   -target key1/key2/...      : run for key1, key2, etc.
@@ -963,11 +967,11 @@
 		  (if (and (> cpuload maxload)
 			   (member action '("run" "archive"))) ;; do not run archive or run if load is over the specified limit
 		      (print "WARNING: cpuload too high, skipping processing of " uuid)
 		      (begin
 			(print "RUNNING: " fullcmd)
-			(system fullcmd)
+			(system fullcmd) ;; replace with process ...
 			(mark-processed pdb (list (alist-ref 'id pktdat)))
 			(let-values (((ack-uuid ack-pkt)
 				      (add-z-card
 				       (construct-sdat 'P uuid
 						       'T (case (string->symbol action)
@@ -1119,11 +1123,16 @@
 		(let* ((install-home (common:get-install-area))
 		       (schema-file  (conc install-home "/share/db/mt-sqlite3.sql")))
 		  (if (common:file-exists? schema-file)
 		      (system (conc "/bin/cat " schema-file)))))
 	       ((junk)
-		(rmt:get-keys))))))))
+		(rmt:get-keys))))))
+      ((tsend)
+       (if (null? remargs)
+	   (print "ERROR: missing data to send to trigger listeners")
+	   (let ((cmd (car remargs)))
+	     (case (string->symbol subcmd)))))))
 
 ;; If HTTP_HOST is defined then we must be in the cgi environment
 ;; so run stml and exit
 ;;
 (if (get-environment-variable "HTTP_HOST")