Index: api.scm
==================================================================
--- api.scm
+++ api.scm
@@ -403,10 +403,16 @@
     ;; NO SYNC DB
     ((no-sync-set)               (apply db:no-sync-set         *no-sync-db* params))
     ((no-sync-get/default)       (apply db:no-sync-get/default *no-sync-db* params))
     ((no-sync-del!)              (apply db:no-sync-del!        *no-sync-db* params))
     ((no-sync-get-lock)          (apply db:no-sync-get-lock    *no-sync-db* params))
+
+    ;; NO SYNC DB PROCESSES
+    ((register-process)          (apply dbfile:register-process *no-sync-db* params))
+    ((set-process-done)          (apply dbfile:set-process-done *no-sync-db* params))
+    ((set-process-status)        (apply dbfile:set-process-status *no-sync-db* params))
+    ((get-process-options)       (apply dbfile:get-process-options *no-sync-db* params))
     
     ;; ARCHIVES
     ;; ((archive-get-allocations)   
     ((archive-register-disk)     (apply db:archive-register-disk dbstruct params))
     ((archive-register-block-name)(apply db:archive-register-block-name dbstruct params))

Index: dbfile.scm
==================================================================
--- dbfile.scm
+++ dbfile.scm
@@ -465,11 +465,25 @@
                                  val TEXT,
                                    CONSTRAINT no_sync_metadat_constraint UNIQUE (var));"
 			    "CREATE TABLE IF NOT EXISTS no_sync_locks 
                                 (key TEXT,
                                  val TEXT,
-                                   CONSTRAINT no_sync_metadat_constraint UNIQUE (key));"))))))
+                                   CONSTRAINT no_sync_metadat_constraint UNIQUE (key));"
+			    "CREATE TABLE IF NOT EXISTS processes
+                                (id INTEGER PRIMARY KEY,
+                                 host TEXT,
+                                 port INTEGER,
+                                 pid INTEGER,
+                                 starttime INTEGER,
+                                 endtime INTEGER,
+                                 status TEXT,
+                                 purpose TEXT,
+                                 dbname TEXT,
+                                 mtversion TEXT,
+                                 reason TEXT DEFAULT 'none',
+                                   CONSTRAINT no_sync_processes UNIQUE (host,pid));"
+			    ))))))
 	 (on-tmp      (equal? (car (string-split dbpath "/")) "tmp"))
 	 (db        (if on-tmp
 			(dbfile:cautious-open-database dbname init-proc 0 "WAL")
 			(dbfile:cautious-open-database dbname init-proc 0 #f)
 			;; (sqlite3:open-database dbname)
@@ -478,10 +492,38 @@
 	(begin
 	  (sqlite3:execute db "PRAGMA synchronous = 0;")
 	  (sqlite3:set-busy-handler! db (sqlite3:make-busy-timeout 136000))))
     db))
 
+;; processes table calls
+
+(define (dbfile:register-process nsdb host port pid starttime status purpose dbname mtversion)
+  (sqlite3:execute nsdb "INSERT INTO processes (?,?,?,?,?,?,?,?) VALUES (host,port,pid,starttime,status,purpose,dbname,mtversion);"
+		   host port pid starttime status purpose dbname mtversion))
+
+(define (dbfile:set-process-status nsdb host pid newstatus)
+  (sqlite3:execute nsdb "UPDATE processes SET status=? WHERE host=? AND pid=?;" newstatus host pid))
+
+(define (dbfile:get-process-options nsdb purpose dbname)
+  (sqlite3:fold-row
+   ;; host port pid starttime status mtversion
+   (lambda (res . row)
+     (cons row res))
+   '()
+   nsdb
+   "SELECT host,port,pid,starttime,status,mtversion FROM processes WHERE purpose=? AND dbname LIKE ? AND status='alive';"
+   purpose dbname))
+
+(define (dbfile:set-process-done nsdb host pid reason)
+  (sqlite3:execute nsdb "UPDATE processes SET status='ended',endtime=?,reason=? WHERE host=? AND pid=?;" (current-seconds) reason host pid)
+  (dbfile:cleanup-old-entries nsdb))
+
+(define (dbfile:cleanup-old-entries nsdb)
+  (sqlite3:execute nsdb "DELETE FROM process WHERE status='ended' AND endtime<?;" (- (current-seconds) (* 3600 48))))
+
+;; other no-sync functions
+
 (define (dbfile:with-no-sync-db dbpath proc)
   (mutex-lock! *no-sync-db-mutex*)
   (let* ((already-open *no-sync-db*)
 	 (db  (or already-open (dbfile:raw-open-no-sync-db dbpath)))
 	 (res (proc db)))

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -726,10 +726,24 @@
   (rmt:send-receive 'no-sync-del! #f `(,var)))
 
 (define (rmt:no-sync-get-lock keyname)
   (rmt:send-receive 'no-sync-get-lock #f `(,keyname)))
 
+;; process registration
+
+(define (rmt:register-process host port pid starttime status purpose dbname mtversion)
+  (rmt:send-receive 'register-process #f (list host port pid starttime status purpose dbname mtversion)))
+
+(define (rmt:set-process-done host pid reason)
+  (rmt:send-receive 'set-process-done #f (list host pid reason)))
+
+(define (rmt:set-process-status host pid newstatus)
+  (rmt:send-receive 'set-process-status #f (list host pid newstatus)))
+
+(define (rmt:get-process-options purpose dbname)
+  (rmt:get-process-options 'get-process-options #f (list purpose dbname)))
+
 ;;======================================================================
 ;; A R C H I V E S
 ;;======================================================================
 
 (define (rmt:archive-get-allocations  testname itempath dneeded)