From 34cbc93a6f486a4986ea20516f390abcb7b5f532 Mon Sep 17 00:00:00 2001
From: adamch <adamch>
Date: Sat, 7 Apr 2007 15:52:06 +0000
Subject: [PATCH] Change a few more places that relied on old home directory
 convention

---
 configDefault/domtool.cfg | 3 ++-
 scripts/domtool-addacl    | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/configDefault/domtool.cfg b/configDefault/domtool.cfg
index 1d055a8..0e64097 100644
--- a/configDefault/domtool.cfg
+++ b/configDefault/domtool.cfg
@@ -56,4 +56,5 @@ val dispatcherName = "deleuze.hcoop.net"
 fun domtoolDir user =
     case user of
 	"domtool" => "/afs/hcoop.net/common/etc/domtool/domtool"
-      | _ => "/afs/hcoop.net/usr/" ^ user ^ "/domtool"
+      | _ => OS.Path.joinDirFile {dir = Posix.SysDB.Passwd.home (Posix.SysDB.getpwnam user),
+				  file = "domtool"}
diff --git a/scripts/domtool-addacl b/scripts/domtool-addacl
index 6675de0..0e71190 100755
--- a/scripts/domtool-addacl
+++ b/scripts/domtool-addacl
@@ -2,4 +2,4 @@
 
 domtool-admin grant $1 user $1
 domtool-admin grant $1 group $1
-domtool-admin grant $1 path /afs/hcoop.net/usr/$1
+domtool-admin grant $1 path `echo ~$1`
-- 
2.20.1