Index: ulex/ulex.scm
==================================================================
--- ulex/ulex.scm
+++ ulex/ulex.scm
@@ -105,10 +105,11 @@
 (defstruct udat
   (captain-address #f)
   (captain-host    #f)
   (captain-port    #f)
   (captain-pid     #f)
+  (ulex-dir        (conc (get-environment-variable "HOME") "/.ulex"))
   (cpkts-dir       (conc (get-environment-variable "HOME") "/.ulex/pkts"))
   (cpkt-spec       *captain-pktspec*)
   (my-cpkt-key     #f)   ;; put Z card here when I create a pkt for myself as captain
   (my-address      #f)
   (my-hostname     #f)
@@ -297,10 +298,49 @@
 	(loop state)))))
 
 ;; add a proc to the handler list
 (define (register-handler udata key proc)
   (hash-table-set! (udat-handlers udata) key proc))
+
+
+;;======================================================================
+;; Ulex db
+;;======================================================================
+
+;; dest='inmem or 'disk
+;;
+(define (open-ulexdb udata dest)
+  (let* ((dbfile   (conc (udat-ulex-dir udata) "/ulex.db"))
+	 (dbexists (file-exists? dbfile))
+	 (db       (sqlite3:open-database dbfile)))
+    (sqlite3:set-busy-handler! db (sqlite3:make-busy-timeout 136000))
+    (if (not dbexists)
+	(sqlite3:with-transaction
+	 db
+	 (lambda ()
+	   (for-each
+	    (lambda (stmt)
+	      (if stmt (sqlite3:execute db stmt)))
+	    `("CREATE TABLE IF NOT EXISTS processes 
+                 (id INTEGER PRIMARY KEY,
+                  host  TEXT NOT NULL,
+                  ipadr TEXT NOT NULL,
+                  port  INTEGER NOT NULL,
+                  pid   INTEGER NOT NULL,
+                  regtime INTEGER DEFAULT (strftime('%s','now')),
+                  last_update INTEGER DEFAULT (strftime('%s','now')));"
+	      (if (eq? dest 'inmem)
+		  "CREATE TRIGGER  IF NOT EXISTS update_proces_trigger AFTER UPDATE ON processes
+                             FOR EACH ROW
+                               BEGIN 
+                                 UPDATE processes SET last_update=(strftime('%s','now'))
+                                   WHERE id=old.id;
+                               END;"
+		  #f))))))
+    db))
+	    
+
 
 ;;======================================================================
 ;; connection setup and management functions
 ;;======================================================================