X-Git-Url: http://git.hcoop.net/bpt/portal.git/blobdiff_plain/18eeb7495e094565c1a5044296606fecd53814db..1b566e48ec4228ebf60088e7040b9d92a8c1fb01:/aptquery.sml diff --git a/aptquery.sml b/aptquery.sml index 39b37ef..6818938 100644 --- a/aptquery.sml +++ b/aptquery.sml @@ -33,7 +33,7 @@ fun query {node, pkg = name} = let val _ = Unix.reap proc - val installed = OS.Process.isSuccess (OS.Process.system ("DOMTOOL_USER=apache2.deleuze.hcoop.net /usr/local/bin/domtool-admin package " ^ Init.nodeName node ^ " " ^ name ^ " >/dev/null 2>/dev/null")) + val installed = OS.Process.isSuccess (OS.Process.system ("DOMTOOL_USER=hcoop /usr/local/bin/domtool-admin package " ^ Init.nodeName node ^ " " ^ name ^ " >/dev/null 2>/dev/null")) in SOME {name = name, section = section, descr = descr, installed = installed} end