X-Git-Url: https://git.hcoop.net/bpt/portal.git/blobdiff_plain/308f44e78b673e268c46ec630a05c055494089fd..97e49729590085a2362df789f61b0ebb5d74ecda:/sec.sml

diff --git a/sec.sml b/sec.sml
index b064a5f..5712940 100644
--- a/sec.sml
+++ b/sec.sml
@@ -45,7 +45,7 @@ fun socketPerms {node, uname} =
     let
 	val proc = Unix.execute ("/bin/sh",
 				 ["-c",
-				  "DOMTOOL_USER=apache2.deleuze.hcoop.net /usr/local/bin/domtool-admin sockperm "
+				  "DOMTOOL_USER=hcoop /usr/local/bin/domtool-admin sockperm "
 				  ^ Init.nodeName node ^ " " ^ uname])
 		   
 	val inf = Unix.textInstreamOf proc
@@ -65,7 +65,7 @@ fun socketPerms {node, uname} =
 
 fun checkIt cmd {node, uname} =
     OS.Process.isSuccess (OS.Process.system
-			      ("DOMTOOL_USER=apache2.deleuze.hcoop.net /usr/local/bin/domtool-admin "
+			      ("DOMTOOL_USER=hcoop /usr/local/bin/domtool-admin "
 			       ^ cmd ^ " " ^ Init.nodeName node ^ " " ^ uname ^ " >/dev/null 2>/dev/null"))
 
 val isTpe = checkIt "tpe"
@@ -76,7 +76,7 @@ fun findFirewallRules {node, uname} =
     let
 	val proc = Unix.execute ("/bin/sh",
 				 ["-c",
-				  "DOMTOOL_USER=apache2.deleuze.hcoop.net /usr/local/bin/domtool-admin firewall "
+				  "DOMTOOL_USER=hcoop /usr/local/bin/domtool-admin firewall "
 				  ^ Init.nodeName node ^ " " ^ uname])
 		   
 	val inf = Unix.textInstreamOf proc