[Nym3-commit] r22 - trunk

[nym3-devel@lists.noreply.org]

Author: laurent
Date: 2004-05-15 00:52:56 +0200 (Sat, 15 May 2004)
New Revision: 22

Modified:
   trunk/user.ml
Log:
Add write_userdata.


Modified: trunk/user.ml
===================================================================
--- trunk/user.ml	2004-05-14 22:46:45 UTC (rev 21)
+++ trunk/user.ml	2004-05-14 22:52:56 UTC (rev 22)
@@ -35,3 +35,10 @@
 	in
 	unlockclose_userdb db;
 	(Marshal.from_string marshalled 0 : userdata);;
+
+let write_userdata nym data =
+	let db = lockopen_userdb Config.userdb in
+	let marshalled = Marshal.to_string data [] in
+	Dbm.replace db nym marshalled;
+	unlockclose_userdb db;;
+