Switch to using system database to find user home directories

[hcoop/domtool2.git] / src / domain.sml

diff --git a/src/domain.sml b/src/domain.sml
index cbb7434..7ee4690 100644 (file)
--- a/src/domain.sml
+++ b/src/domain.sml
@@ -734,4 +734,9 @@ fun rmdom doms =
        app cleanupNode Config.nodeIps
     end
 
+fun homedirOf uname =
+    Posix.SysDB.Passwd.home (Posix.SysDB.getpwnam uname)
+
+fun homedir () = homedirOf (getUser ())
+
 end