* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*)
-(* Driver for server *)
+(* Driver for configuration requests *)
+
+fun domtoolRoot () =
+ let
+ val uid = Posix.ProcEnv.getuid ()
+ val uname = Posix.SysDB.Passwd.name (Posix.SysDB.getpwuid uid)
+ val dname = OS.Path.joinDirFile {dir = Config.homeBase,
+ file = uname}
+ in
+ OS.Path.joinDirFile {dir = dname,
+ file = "domtool"}
+ end
val _ =
case CommandLine.arguments () of
- [fname] => Main.request fname
+ [fname] =>
+ if Posix.FileSys.access (fname, []) then
+ Main.request fname
+ else
+ Main.request (OS.Path.joinDirFile {dir = domtoolRoot (),
+ file = fname})
+ | [] => Main.requestDir (domtoolRoot ())
| _ => print "Invalid command-line arguments\n"